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.REM € 


IDENTIFICATION 
PRODUCT CODE: AC-18756-MC 
PRODUCT NAME: COKTABO KTJ11-8 DIAGNOSTIC 
PRODUCT DATE: ALY, 1964 
MAINTAINER; SMALL SYSTEMS DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS By - TO CHANGE WITHOUT NOTICE 

MO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

py DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBLITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 


EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C): 1964 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PoP UNIBUS MASSBUS 
DEC DECUS DEC TAPE DECX/11 


SEQ 0001 
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_ SEQ 0002 


TABLE OF CONTENTS 
ABSTRACT 

RUN-TIME REQUIREMENTS 
STARTING PROCEDURE 

ERROR REPORTS 

EXECUTION TIME 

UBA REGISTER DEFINITIONS 
TEST LIST 


vu oO yes wh 
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1. ABSTRACT 


THE FOLLOWING DIAGNOSTIC TESTS THE UNIBUS ADAPTER (UBA) MODULE, KTJ11-B. 
THE FUNCTIONALITY OF THE MODULE IS: UNIBUS - PMI BUS ADAPTER (WHERE PHI IS 
A FASTER VERSION OF A Q22-BUS), ayy COMPATIBLE BOOT FACILITY, AND THE UNIBUS 
MAP LOGIC. THE MODULE ALSO HAS A DMA CACHE STORE, UTILISED FOR DOING OMA 
TRANSFERS MEMORY TO UNIBUS DEVICES. THE UBA CAN BE PROGRAPED TO DO 
aety  h CYCLES TO VERIFY SOME OF THE FUNCTIONALITY WITHOUT REQUIRING 

ANY OF THE PERIPHIRALS TO BE ACTUALLY CONNECTED TO THE UNIBUS. 


2. RUN-TIME REQUIREMENTS 
THIS OIAGNOSTIC IS THE ONLY ONE WRITTEN SPECIFICALLY FOR THE UBA MODULE. 
THEREFORE, DEPENDING ON THE ENVIRONMENT IN WHICH THE PROGRAM IS RUN, DIFFERENT 
DEVICES CAN BE USED 
MINIMUM HARDWARE NEEDED TO RUN THE DIAGNOSTIC: 

1) KDJ11-8 CPU MODULE 

2) AT LEAST 26K OF MEMORY 

3) KTJ11-B8 UBA MODULE 

4) CONSOLE TERMINAL 

5) LOAD MEDIA 
TO 00 FURTHER FUNCTIONAL VERIFICATION OF THE MODULE 2 UNIBUS EXERCISERS (UBE) 
ARE REQUIRED. THI IRONMENT 


S SHOULD BE DONE IN MANUFACTURING OR ANY OTHER ENV 
NEEDS VERIFICATION OF ALL FUNCTIONS OF THE UBA. 


-_- ee 


THAT 


SEQ 0003 


KTJ11-8 DIAGNOSTIC 


SEQ 0004 


MACRO M1200 05-OCT-84 09:24 PAGE 5S | 
| 


3. STARTING PROCEDURE 


THE DIAGNOSTIC IS A STANDART XXDP PROGRAM WITH APT mete): THEREFORE , IN 
STANALONE MODE, AFTER BOOTING THE SYSTEM, TYPING IN 


R OKTAB? 


WILL START THE PROGRAM, WHICH WILL aaa PROMT THE OPERATOR FOR THE SOFTWARE 
REGISTER SWITCH SETTING DESRIBED BELOW 


COKTABO KTJ11-B8 DIAGNOSTIC 

SWR = XXXXXX NEW = 
WHERE “XXXXXX" CORRESPOND TO THE OLD SETTING OF THE SOFTWARE SWITCH REGISTER. 
AT THIS POINT AN OPERATOR CAN EITHER TYPE IN A CARRIAGE RETURN, WHICH WOULD 
LEAVE THE SOFTWARE SWITCH REGISTER AS IT WAS, OR CHANGE IT, ACCORDING TO THE 
FOLLOWING PARAMETERS. 


OPERATIONAL SWITCH SETTINGS 


TAL MEANING 
SW<15>*1... 100000 HALT ON 
SW<14>*1... 40000 LOOP ON CURRENT TEST 
SW<13>*1... 20000 INHIBIT ERROR TYPEOUTS 
SW<1l>*1... 4000 INHIBIT ITERATIONS 
SW<10>*1,.. 2000 RING TTY BELL ON ERROR 
SW<9>91... 1000 LOOP ON ERROR 
SW<6>=1... 400 LOOP ON at SPECIFIED IN SW<S> 


THRU SW<O 
FOR EXAMPLE: 
SUR = 000000 NEW = 100000 
RATER GSAT Se MEST AMETE SSPE ST ST er rcs. Te 


IF RAN FROM A UFO CHAIN FILE, THE DIAGNOSTIC IS FULLY UNDER CONTROL OF 
THE UFD MONITOR THAT WILL REPORT ONLY PASS/FAIL MESSAGES. 
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4. ERROR REPORTS 


IF RAN IN STANDALONE MODE, THE DIAGNOSTIC REPORTS ALL ERRORS TO A FUNCTIONAL 
LEVEL AND THEN CONTINUES. FAILING PROGRAM COUNTER, TEST NUMBER, AND ERROR 
NUMBER ARE PRINTED OUT FOR ALL ERRORS. WHERE POSSTBLE EXPECTED AND RECEIVED 
DATA ARE ALSO PROVIDED. 

REFER TO OPERATIONAL SWITCH SETTINS IF ANYTHING DIFFERENT IS REQUIRED. 


EXAMPLE OF ERROR PRINTOUT: 
ERROR IN THE wy * ed ROM SECTION 


TEST ERROR 
s PC @ 
33 12650 31 
S. EXECUTION TIME 
THE DIAGNOSTIC RUNS A FULL PASS IN LESS THAN A MINUTE. 
6. UBA REGISTER DEFINITION 


DOR THE DIAGNOSTIC DATA REGISTER IS A BUFFER THAT PROVIDES THE ABILITY OF 
READING AND WRITING THE DATA TO AND FROM MEMORY IN DIAGNOSTIC MODE. 


OCSR THE DIAGNOSTIC CONTROL AND STATUS REGISTER PROVIDES MEANS OF GOING IN 
AND aa Me tapas MODE AND ALSO OF INITIATING DIAGNOSTIC DATI FROM 


KMCR THE KTJ11-8 MEMORY CONFIGURATION REGISTER IDENTIFIES THE AMOUNT OF 
UNIBUS MEMORY PERSENT IN THE SYSTEM. IT IS ALSO RESPONSIBLE FOR 
CONTROLLLING AND DESCRIBING THE STATUS OF THE DMA CACHE. 
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SEQ 0006 
179 7, TESTS LIST 
180 
181 TEST 1 - UNIBUS MAP REGISTER TESTS 
182 TEST 2 - UNIBUS MAP REGISTER BIT PATTERN 
183 TEST 3 - UNIBUS MAP REGISTER ADORESS UNIQUENESS 
184 TEST 4 - UNIGENESS BETWEEN LOW Map REGISTERS AND HIGH MAP REGISTERS 
185 TEST 5 - DCSR REGISTER RESPONSE T 
186 TEST 6 - KMCR BITS TEST 
187 TEST 7 - UNIBUS TIMEOUT TEST 
188 TEST 8 - DATA OUT WITHOUT RELOCATION 
189 TEST 9 - DATA IN WITHOUT RELOCATION 
190 TEST 10 - CONTENT OF DOR 
191 TEST 11 - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
192 TEST 12 - DISABLING OF THE MAPPING REGISTERS 
193 TEST 13 - NXM MEMORY TIMEOUT 
194 TEST 14 - Y PROPOGATION TEST 
195 TEST 15 - EXTENSIVE Y PROPOGATION TEST 
1 TEST 16 - ALU TEST 
197 TEST 17 - MAIN MEMORY DISABLE 
198 TEST 18 - CACHE PRESENCE 
199 TEST 19 - DISABL 
200 TEST 20 - AVAILABILITY OF SETS 
2c1 TEST 21 - DEALLOCATION OF SETS 
TEST 22 - CACHE MIT RELOCATION DISABLED 
203 TEST 23 - WRITE CYCLES AND CACHE 
208 TEST 24 - OMA READ WITH INDEX NOT ZERO 
205 TEST 25 - TAG REGISTERS 
206 TEST 26 - CACHE RAM BIT PATTERN TEST 
207 TEST 27 - BOOT ROMS TEST 
208 TEST 26 - UNIBUS MEMORY TEST 
TEST 29 - 0s 
210 TEST 30 - NPG ARBITRATION 
211 TEST 31 - GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
212 TEST 32 - BR7-BR4 ARBITRATION 
213 TEST 33 - ARBITRATION BETWEEN INTERRUPTS AND PIRQ'S 
214 TEST 34 - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
215 TEST 35 - POWER DOWN TEST 
216 TEST 36 - WRONG PARITY TEST 
217 TEST $7 - NO SACK TIMEOUT 
218 TEST 38 - NO INTERRUPT TEST 
219 TEST 39 - UNIBUS DEVICE DATO CYCLE 
220 TEST 40 - UNIBUS DEVICE DATI CYCLE 
221 TEST 41 - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
222 TEST 42 - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
223 TEST 43 - ALU TEST USING UBE 
224 TEST 44 - CARRY PROPOGATION TEST USING UBE 
225 TEST 45 - NXM TEST USING UBE 
226 TEST 46 - RELOCATION WITH MEMORY 
227 TEST 47 - MAIN MEMORY DISABLE THRU UBE 
228 TEST 48 - UNIBUS DEVICE DATOS CYCLE 
229 TEST 49 - DEVICE DATIP CYCLE 
230 TEST SO - UNIBUS DEVICE I/0 PAGE READ CYCLE 
251 TEST 51 - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
232 TEST S2 - MAPPING REGISTERS TEST USING UBE 
233 TEST 53 - DEVICE DATI CYCLE WITH CACHE ENABLED 
234 TEST 54 - WRONG PARITY AND CACHE 
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SEQ 0007 
237 
238 
259 
260 167400 $SWR= 167400 
261 000300 $SWRMK = 300 
262 -TITLE KTJ11-B8 DIAGNOSTIC 


;@COPYRIGHT (C) MAY 83 
s*DIGITAL EQUIPMENT CORP. 
s@MAYNARD, MASS. 01754 
3% 

“rte BY DIAG. ENG. 


yeTHIS PROGRAM WAS ASSEMBLED USING THE sy 11 MAINDEC SYSMAC 
pte: (MAINDEC-11-0ZQAC-C8), OCT, 


000001 $TNed 


263 -SBTTL OPERATIONAL SWITCH SETTINGS 
3% 
3¢ SWITCH USE 
$@ em mm mmm mw mew enen 
34 15 HALT ON ERROR 
3* 14 LOOP ON TEST 
34 13 INHIBIT ERROR TYPEOUTS 
34 11 INHIBIT ITERATIONS 
3¢ 10 BELL ON ERROR 
3¢ 9 LOOP ON ERROR 
3% 8 LOOP ON TEST IN SWR<5:0> 
265 -SBTTL BASIC DEFINITIONS 
s*INITIAL ADDRESS OF THE STACK POINTER see 1100 eee 
001100 STACK= 1100 
104000 ERROR= EMT ssBASIC DEFINITION OF ERROR CALL 
000004 SCOPE= IOT 3sBASIC DEFINITION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 
000011 HT= 11 3sCODE FOR HORIZONTAL TAB 
000012 LFs= 12 3sCODE FOR LINE FEED 
000015 CR= 15 33CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 | }CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 ssPROCESSOR STATUS WORD 
177776 PSW= PS 
177774 STKLMT= 177774 33STACK LIMIT REGISTER 
177772 PIRQ= 177772 ssPROGRAM INTERRUPT REQUEST REGISTER 
177570 OSWRe= 177570 ssHAROWARE SWITCH REGISTER 
177570 OOISP= 177570 s sHAROWARE DISPLAY REGISTER 
—— PURPOSE REGISTER DEF INI TIONS 
000000 RO= 3 sGENERAL REGISTER 
000001 Ris or 3 sGENERAL REGISTER 
Ros #2 3 sGENERAL REGISTER 
000003 R3= 63 3 sGENERAL REGISTER 
000004 R4= a4 a8 AL REGISTER 
000005 R5S= 65 3 sGENERAL REGISTER 
000006 R65 6 3 sGENERAL REGISTER 
000007 R7= 67 3 sGENERAL REGISTER 
000006 SP= 86 +sSTACK POINTER 
000007 PC= 67 3 sPROGRAM COUNTER 
s@PRIORITY LEVEL DEFINITIONS 
000000 PRO= 0 ssPRIORITY LEVEL O 


000040 PRi= 40 ssPRIORITY LEVEL 1 
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ssPRIORITY LEVEL 2 
ssPRIORITY LEVEL 3 
ssPRIORITY LEVEL 4 


SWO= 
s*DATA y Rx DEFINITIONS (BITOO TO BIT15) 


PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6E= 300 
PR7= 340 
SW1S5= 100000 
SW14= 40000 
SW13= 20000 
SWi2= 10000 
SWil= 4000 
SWi0= 2000 
SWO9= 1000 
SWO6= #00 
SWO7= 200 
SWO6= 1006 
SwoS= 40 
SWO4= 20 
SWwO3S= 10 
SWwOo2= 4 
CMie 2 
Swoo= 1 
SW9= SWO9 
SwW8 = SWO8 
SW7= SWO7 
SW6= SWO6 
SW5= SWOS 
Sid © SWO4 
SW3= SWO3 
SW2= Sw02 
SWis SWO1 
SWOO 
BIT15= 
BIT14= 40000 
BIT13= 20000 
BITi2= 10000 
BITil= 4000 
BIT10= 2000 
BITO9= 1000 
BITO6= 400 
BITO7= 200 
BITO6= 100 
BITOS= 40 
BITO4= 20 
BITOS= 10 
BITO2= 4 
BITOl= 2 
BITOO= 1 
BIT9=  BITO9 
BIT6= BITOs 
BIT7=  68IT07 
BIT6é-  BIT06 
BITS= BITOS 
BIT4= BIT04 
BIT3S= BITOS 


KTJ11-8 DIAGNOSTIC 
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172370 
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BIT2= BITO2 
BITi= B6ITO1 


BITO= BITOO 

s*BASIC “CPU” TRAP VECTOR ADDRESSES 

ERRVEC= 4 3sTIME OUT AND OTHER ERRORS 

RESVEC= 10 ssRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC#14 33"T" BIT 

TRTVEC= 14 33 TRACE TRAP 

BPTVEC= 14 3s sBREAKPOINT TRAP (BPT) 

IOTVEC= 20 pe Ay Ata TRAP (IOT) ##SCOPEes 
PURVEC= 24 ssPOWER FAIL 

EMTVEC= 30 cece I as CEMT) *#sERRORes 
TRAPVEC=34 33"TRAP” T 

TKVEC= 60 s3TTY KEYBOARD VECTOR 

TPVEC= 64 ssTTY PRINTER VECTOR 

PIRQVEC=240 3sPROGRAM INTERRUPT REQUEST VECTOR 


-SBTTL. MEMORY MANAGEMENT DEFINITIONS 
1@KT11 VECTOR ADDRESS 


MMVEC= 250 

3#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 

SRi= 177574 

SR2= 177576 


SR3= 172516 
s@KERNEL “I” PAGE DESCRIPTOR REGISTERS 
KIPORO= 172300 


KIPOR7= 172316 


KDPOR7= 1723536 


a 
at 
~" 


KDPARS= 172366 
KDPAR4= 172370 
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MEMORY MANAGEMENT DEFINITIONS 
172372 


172374 
172376 


291 


311 
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SEQ 0010 

KDPARS= 172372 
KDPAR6= 172374 
KDPAR7T= 172376 
-SBTTL UNIBUS MAP REGISTER DEFINITIONS 
+*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXx’ 
3*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX’ 
MAPLOO = 170200 
MAPHOO = 170202 
MAPLO1 = 170204 
MAPHO1 = 170206 
MAPLO2 = 170210 

* 170212 
MAPLOS = 170214 
MAPHOS = 170216 
MAPLO4 = 170220 

* 170222 
MAPLOS = 170224 

* 170226 
MAPLOG = 170230 
MAPHO6 = 170232 
MAPLO7 = 170234 
MAPHO7 = 170236 
MAPL10 = 170240 
MAPHLO = 170242 
MAPL11 = 170244 
MAPH11 = 170246 
MAPL12 = 170250 
MAPH12 = 170252 
MAPL13 = 170254 
MAPH13 = 170256 
MAPL14 = 170260 
MAPH14 = 170262 
MAPLiS = 170264 
MAPH1S = 170266 
MAPL16 = 170270 
MAPHI16 = 170272 
MAPL17 = 170274 
MAPHI7 = 170276 
MAPL20 = 170300 
MAPH2O = 170302 
MAPL21 = 170304 
MAPH21 = 170306 
MAPL22 = 170310 
MAPH22 = 170312 
MAPL23 = 170314 
MAPH23 = 170316 
MAPL24 + 170320 
MAPH24 = 170322 
MAPL2S = 170324 
MAPH2S = 170326 
MAPL26 = 170330 
MAPH26 = 170332 
MAPL27 = 170334 
MAPH27 = 170336 





KTJ11-B8 DIAGNOSTIC 
UNIBUS MAP REGISTER DEFINITIONS 

321 170340 
322 170342 
323 170344 
324 170346 
325 170350 
326 170352 
327 170354 
328 170356 
329 170360 
330 170362 
331 170364 
332 170366 
333 170370 
334 170372 
335 170374 
336 170376 
337 
338 170200 
339 170202 
340 170204 
341 170206 
342 170210 
343 170212 
344 170214 
345 170216 
346 170220 
347 170222 
348 170224 
349 170226 
350 170230 
351 170232 
352 170234 
353 170236 
334 
355 
356 
357 177572 
358 177574 
359 177576 
360 172516 
361 1 
362 177520 
363 177730 
364 177732 
365 177734 
366 177746 
367 177522 
368 120001 
369 170014 
370 
371 

000000 


—_ 
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MAPL3O = 170340 
MAPHSO = 170342 
MAPL31 = 170344 
MAPHS1 = 170346 
MAPL32 = 170350 
* 170352 
MAPL33 = 170354 
MAPHSS = 170356 
MAPL34 = 170360 
* 170362 
MAPL3S = 170364 
MAPHSS = 170366 
MAPL36 = 170370 
* 170372 
MAPL37 = 170374 
MAPHS7 = 170376 
MAPLO = MAPLOO 
MAPHO = 
MAPL1 = MAPLO1 
MAPH1 = MAPHO1 
MAPL2 = MAPLO2 
MAPH2 = 
MAPL3 = MAPLOS 
MAPHS = MAPHOS 
MAPL4 = MAPLO4 
MAPH4 = MAPHO4 
MAPLS = MAPLOS 
MAPHS = 
MAPL6 = MAPLOG 
MAPH6 = 
MAPL7 = MAPLO7 
MAPH7T = MAPHO7 
SBTTL UBA SPECIFIC REGISTERS 
MARO * 177572 3 MEMORY MANAGEMENT REGISTER DEF {NITIONS 
RI = 177574 ; 
MARS = 177576 : 
MARS * 172516 3 
UFOSET = 1 s FLAG FOR UFD MODE 
BCSR * 177520 s BOOT/DIAGNOSTIC STATUS REGISTER 
OCSR * 177730 s DIAGNOSTIC CONTROLI.ER STATUS REGISTER 
* 177732 s OIAGNOSTIC DATA REISTER 
KMCR = 177734 s KTJ11-B8 MEMORY CONFIGURATION REGISTER 
CCR = 177746 s CACHE CONTOL REGISTER FOR CPU 
PCR * 177522 s PAGE CONTROL REGISTER 
Y = 120001 s POLYNOMIAL USED FOR CRC ROUTINES 
SIMGO = 170014 3 SIMULTANEOUS GO ADDRESS FOR MULTIPLE UBE'S 


. SBTTL oy CATCHER 

ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
ie SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
s*LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


#1 
DISPREG: .WORD 0 ssSOFTWARE DISPLAY REGISTER 


as sails Met aa rica ewan OR a 


KTJ11-8 DIAGNOSTIC 
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001160 
002500 


000777 001160 
002500 


SWREG: -WORD 0 ;sSOFTWARE SWITCH REGISTER 


‘ CLR $TMPO 
Je BOSTART 


MOV 0777, $TMPO 
SOSTART 


-*220 
JP 
-SBTTL ACT11 HOOKS 


3S SSCSSSSSSSSSSHSSSSSSESSHESSHESSSHSSESESEEHEEEESASEHEKEEEEEEEEEEEED 


sHOOKS REQUIRED BY ACT11 
$SvPC=. 


= sSAVE PC 
VENDAD 331)SET LOC.46 TO ADDRESS OF $ENDAD IN .s€0P 
“WORD ::2)SET LOC.52 TO ZERO 

8S 33 RESTORE PC 


. = $SVPC 
.SBTTL APT PARAMETER BLOCK 
5 § SSO000000000000000000000600000000000000000600060000000000000008888 
3SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
5 § OO0000000000000000000000000000000000000000000000000000000080008 
.$X=, 3sSAVE CURRENT LOCATION 
"24 33SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
244 ssPOINT TO APT INDIRECT ADORESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
-*.$X 33RESET LOCATION COUNTER 
§ SPSSSSSSSSSSSESSESESEEEEESEEEEEESESESOESEAEEEEEEESESEEEEEEEOEEEE 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


$HIBTS: .WORD 0 33TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
WORD $MAIL ;;ADORESS OF APT —~ eon (BITS 0-15) 
. WORD 33RUN TIM OF LONGEST TEST 
$PASTM: .WORD s3sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
WORD s sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
WORD ‘sETEND- sHAIL/2 3;LENGTH MAILBOX -ETABLE( WORDS ) 


KTJ11-B8 DIAGNOSTIC 
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381 


N1 


MACRO M1200 05-OCT-84 09:24 PAGE 9 


.-SBTTL COMMON TAGS 
jf PORSSEORERSERESESEESEESESEREEEEEEEEEEEEEEESREEEEEEEEEEEEEEEEERS 
s*#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

;*#USED IN THE PROGRAM. 


-*1100 
$CMTAG: 


$TSTNM: . 


S oo - 

g? 26 § 

> 8&8 &F 

= oe of . 

PELEEEELEEEE 
<< 
a4 

E mm 


$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$NULL: .BYTE 
$FILLS: .BYTE 
$FILLC: .BYTE 
$TPFLG: .BYTE 
-REPT 2 
$TMPO: .WORD 
$TMP1: .WORD 
$TIMES: O 
S$ESCAPE :0 
$BELL: .ASCIZ 
$QUES: .ASCII 
sCRLF: .ASCII 
$LF; -ASCIZ 


ooooooococorooooocoo 


<207><377><377> 


/?/ 
<15> 
<12> 


—_—-— 


ssSTART OF COMMON TAGS 


ssCONTAINS THE TEST NUMBER 

s sCONTAINS ERROR FLAG 

ssCONTAINS SUBTEST ITERATION COUNT 
ADORES 


CONTAINS ADORESS OF ‘GOOD’ DATA 
: sCONTAINS SS OF ‘BAD’ DATA 
ssCONTAINS ‘GOOD’ DATA 


ssCONTAINS ‘BAD’ DATA 
3: sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
ss INTERRUPT MODE INDICATOR 


ssADORESS OF SWITCH REGISTER 
ssADORESS OF DISPLAY REGISTER 
at KBD —— 
TTY KBO BUFFE 
itty PRINTER STATUS REG. ADORESS 
33TTY PRINTER BUFFER REG. ADORESS 
3 sCONTAINS NULL CHARACTER FOR FILLS 
yt @ OF FILLER CHARACTERS REQUIRED 


EE FILL CHARS. AFTER A “LINE FEED” 
“TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 

3sUSER DEFINED 

3sUSER DEFINED 

3 3MAX. 


NUMBER OF ITERATIONS 
3sESCAPE ON ERROR ADDRESS 
+ {CODE FOR BELL 


3 sQUESTION MARK 
3 sCARRIAGE RETURN 
3;LIN€E FEED 


3 SFSEESESSSSESESSESHESSESESESSSSESSSESSSESEEESESESEESESSEESEESESESSEESEEE 


-SBTTL APT MAILBOX-ETABLE 
5 i POSSESS ESEEEEEESSEEEEEEEESESEESEEEESESEEEESEESEEEEESEEEEEEESES 
N 


33APT MAILBOX 


3 sMESSAGE TYPE CODE 
s3FATAL ERROR NUMBER 
TEST NUMBER 


ssMESSAGE ADDRESS 


SEQ 0013 


KTJ11-8 DIAGNOSTIC 
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. e a . . a oO oO . a — 7 — . . a . . . 
sess = 0 =o 
Vawuwwe oO ~ 


s5P we” 


-OP 
BITS 15-11°CPU TYPE 
11/04°01 , 11/05°02,,11/20+03, 11/40=04,11/45+05 
11/70206, 7,Q@°10 
BIT 10°REAL TIME CLOCK 
or alent a POINT a 


MEM. TYPE BYTE -- (HIGH BYTE) 
NSEC CORE 001 
300 NSEC BIPOLAR=002 


SOO NSEC M0S-003 
3 s4IGH 


ADORESS ,BLKe1 
reR.LASY AOA. 3 BYTES, THIS WORD AND LOW OF “TYPE~ ABOVE 


-BLKOa 
ssINTERAUPT VECTORO1.8US PRIORITYe1 
et gee VECTORG2BUS PRIORITYe2 
——" OF EQUIPMENT UNDER TEST 


ssDEVICE DESCRIPTOR WORDE15 


KTJ11-8 OIAGNOSTIC 


ERROR POINTER TABLE 


001324 


ERS 


416 001370 032232 
000000 


417 001372 


420 001574 027334 
ri 001376 031503 


22 
423 001400 032232 
4 001402 000000 


426 
427 001404 027377 


-SBTTL ERROR POINTER TABLE 
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SEQ 0015 


1eTHIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
seTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
s@LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


IF SITEMB IS 0 THE ONLY 
EACH ITEM 


PERTINENT DATA IS (SERRPC). 
TABLE CONTAINS ; POINTERS EXPLAINED AS FOLLOWS: 


ssPOINTS TO THE ERROR MESSAGE 
Ow ssPOINTS TO THE DATA HEADER 
oT ssPOINTS TO THE DATA 
OF ssPOINTS TO THE DATA FORMAT 


ERROR DEFINITIONS 
ERROR 1 


TIMEOUT ON ACCESSING A MAP REGISTER 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, SERRPC , ERRNUM, SBDADR 


MAP REGISTER COULD NOT BE CLEARED 
GOOD 


BAD 
TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, SERRPC , ERRNUM, SGDDAT , $BDDAT , $BDADR 


MAP REGISTER COULD NOT HOLD PATTERN 
GOOD 


BAD 
TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, SERRPC ,ERRNUM, $GDDAT , SBODAT , SBDACR 


MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY 
GOOD BAD 


TEST @ ERROR PC ERROR @ ADORESS ADORESS 
TEST, SERRPC , ERRNUM, SGDADR , $SBDADR 


THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGIST 


TEST @ ERROR PC ERROR @ MAP 
TEST , SERRPC ,ERRNUM, $GDDAT, SBD0AT 


ERROR IN BITS 3-6,9-14 IN THE DCSR 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


DCSR DID RESPOND PROPERLY ON RESET 


426 001406 


429 
430 001410 
431 001412 


472 001474 
473 001476 
474 
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ERROR DEFINITIONS 


031503 
032232 
000000 


027446 
031174 
032166 
000000 
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GOOD BAD 
TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, §GODAT , $BODAT 


TIMEOUT HAS OCCURED ON ACCESS TO THE OCSR 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, SERRPC , ERRNUM, $BOADR 


KMCR BITS 0-5,8 DID NOT GET SET CORRECTLY 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA ADORESS 
TEST, SERRPC ,ERRNUM, $GDDAT , $BODAT , $BDADR 


HAS OCCURED ON ACCESS TO THE KMCR 
TEST @ ERROR PC ERROR @ ADORESS 
TEST, SERRPC ,ERRNUM, $BDADR 


ERROR IN DATA PATH 
TEST @ ERROR PC ERROR © PATTERN DOR 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN DATA OUT 


GOOD BAD 
TEST @ ERROR PC ERROR @ DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


DATA 


ERROR IN DATA IN 
TEST @ ERROR PC ERROR @ PATTERN DOR 
TEST, SERRPC ,ERRNUM, $GODAT , $BDDAT 


DOR NOT ZERO WHEN DCSR SELECTS UNIBUS LINES 
GOOD BAD 


TEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN SETTING OCSR<7> 
TEST @ ERROR PC ERROR © 
TEST, SERRPC , ERRNUM 


SEQ 0016 
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48s 
486 
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001514 030107 EM20 
001516 031677 DH20 
001520 032256 0120 
001522 000000 0 
“ERROR 21 
001524 030165 EM21 
001526 031640 DH16 
001530 032246 OT16 
001532 000000 0 
ERROR 22 
001534 030232 EM22 
001536 031640 DH16 
001540 032246 OT16 
001542 0 
ERROR 23 
001544 0 EM23 
001546 031757 OH23 
001550 032302 pT23 
001552 000000 0 
ERROR 24 
001554 030320 EM24 
001556 031640 DH16 
001560 032246 OT16 
001562 0 
ERROR 25 
001564 030340 
001 031640 DH16 
001570 032246 0716 
001572 000000 0 
ERROR 26 
001574 030410 EH26 
001576 031503 DHS 
001600 032232 oT4 
001602 0 
ERROR 27 
001604 030473 EM27 
001606 032070 OH27 
001610 032322 0127 
001612 0 
ERROR 30 
001614 030530 EM30 
001616 031174 OH1 
001620 032336 0130 
001622 0 
ERROR 31 
001624 030571 EM31 


ERROR IN UNIQUE ADDRESSING OF REGISTERS 
TEST @ ERROR PC ERROR @ KMCR PAIR FAILED 
TEST, SERRPC ,ERRNUM,KMCR, $BDADR 


REG. PAIR 31. ytny A essccnmitsises 
TEST @ ERROR PC E 
TEST, SERRPC, ERAN 


NXM CONDITION COULDN'T BE CREATED THRU ALU 
TEST @ ERROR PC ERROR © 
TEST, SERRPC , ERRNUM 


ALU ERROR 


GOOD BAD 
TEST @ ERROR PC ERROR @ DATA DATA ADDRESS 
TEST, SERRPC , ERRNUM, $GDDAT , $BDDAT , KIPARG , $BDADR 


CPU CACHE ERROR 
TEST @ ERROR PC ERROR © 
TEST, SERRPC , ERRNUM 


KMCR<4-0> DOESN'T a MAIN MEMORY 
TEST € ERROR PC ERROR © 
TEST, SERRPC , ERRNUM 


KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 
GOOD BAD 


iEST @ ERROR PC ERROR @ DATA DATA 
TEST, SERRPC , ERRNUM, $GDDAT , $BDDAT 


ERROR IN CACHE TAG oy 
TEST @ ERROR PC ERROR @ ADDRESS 
TEST, SERRPC , ERRNUM, MAPHO1 , MAPLO1 


3 ERROR IN THE DMA CACHE DATA RAMS 
ERROR 


TEST @ ERROR PC @ ADDRESS 
TEST, SERRPC , ERRNUM, MAPLOO 


ERROR IN THE M9312 BOOT ROM SECTION 


| 
— | 
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031640 
032246 


031123 
031640 


Fe 
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OH16 
OT16 
te) 
3 ERROR *2 
EM32 
OH16 
OT16 
0 
; ERROR 33 
EMS3 
OH16 
OT16 
0 
3 ERROR 34 
EM34 
OH16 
OT16 
0 
F ERROR 35 
EM35 
OH16 
OT21 
0 
F ERROR 36 
EM36 
OH16 
OT16 
0 
3 ERROR 37 
EM37 
OH16 
OT16 
fe) 
-SBTTL GLOBAL VARIABLES 
: .WORD O 
TEST: -WORD O 
PMIS: -WORD O 
UBECT: .WORD O 
BELINT: .WORD O 
BE2INT: .WORD O 
TOUT; -WORD O 
MCSR: -WORD 172100 
WRIBUF: .BLKW 
007417 031463 PTRNIG6: .WORD 
125252 000000 
000014 000025 PTRN6: .WORD 17,14,25,52,0 
000000 


-SBTTL CACHE RAM IMAGE TABLE 


377, 7417,31463,52525,125252,0 


TEST @ ERROR PC ERROR @ 
TEST, SERRPC , ERRNUM 


ERROR IN ARBITRATION LOGIC THRU UBE 
TEST @ ERROR PC ERROR © 
TEST, SERRPC , ERRNUM 


ERROR TRYING TC DO OMA CYCLES THRU UBE 
TEST @ ERROR PC ERROR @ 
TEST, SERRPC , ERRNUM 


ERROR IN THE UNIBUS oe TEST 
TEST @ ERROR PC ERROR @ 
TEST, SERRPC , ERRNUM 


UNEXPECTED TIMEOUT HAS OCCURED 
TEST @ ERROR PC ERROR @ 
TEST, $BOADR , ERRNUM 


UNIBUS TIMEOUT DID NOT we 
TEST @ ERROR PC ERROR @ 
TEST, SERRPC ,ERRNUM 


OCSR<3> DIDN'T DISABLE re ROM'S 
TEST @ ERROR PC ERROR @ 
TEST, SERRPC , ERRNUM 


ERROR NUMBER FOR REPORT 
TEST NUMBER FOR REPORT 


UBE'S 
UBE #1 INTERRUPT FLAG 
UBE #2 ae FLAG 
TIMEOUT FLAG 
POINTER TO MEMORY CSR 
WRITE BUFFER 
16-BIT BINARY DIVIDE 


6-BIT BINARY DIVIDE 


KTJ11-8 


DIAGNOSTIC 


CACHE RAM IMAGE TABLE 
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THE FOLLOWING BLOCK OF DATA WILL BE USED IN THE CACHE RAM BIT TEST 
THE EXACT ADDRESSES WILL BE FIGURED OUT BY THE PROGRAM DEPENDING 
ON THE LOCATION OF THIS TABLE. 


CTBLE: .BLKW 47 3s THE LARGEST @ OF LOCATIONS NEEDED 

OBADR: .WORD 0 s FIRST ADORESS OF A FIELD IN TABLE 
-WORD O s FIRST ADORESS OF 6 FIELD IN TABLE 
-WORD O s FIRST ADORESS OF C FIELD IN TABLE 
-WORO O s FIRST ADORESS OF D FIELD IN TABLE 

SBTTL UNIBUS EXERCISER REGISTER TABLES 

3 

3 UBE @1 

3 

BE108: O s UBE #1 DATA REGISTER 

BEICC: O s UBE #1 CYCLE COUNT REGISTER 

1BA: O 3s UBE @1 ADORESS REGISTER 

BE1CRi: O 3; UBE @1 CONTROL ISTER 

BEICLR: O s UBE #1 CLEAR ERROR REGISTER ADDRESS 

BE1CR2: O : UBE #1 CONTROL REGISTER 

BEIVEC: O s UBE #1 VECTOR PC 

BE1PSW: O ; UBE #1 VECTOR PSwW 

3 

3 UBE #2 

3 

BE20B: O : UBE #2 DATA REGISTER 

BE2CC: O s UBE @2 CYCLE COUNT REGISTER 

BE2BA: O s UBE ADORESS REGISTER 

BE2CR1: O 1; VBE CONTROL REGISTER 1 

BESCLR: O s UBE @2 CLEAR ERROR REGISTER ADDRESS 

BEQCRe: O : UBE CONTROL REGISTER 2 

BE2VEC: O s UBE @2 VECTOR PC 

BE2PSW: O 3 UBE VECTOR PSW 


3 02 
-SBTTL SUBROUTINE - DIAGNOSTIC_DATA_OUT SUBROUTI 


3@ INPUTS: PATTERN TO BE STORED IN DOR AND THEN WRITTEN TO MEMORY $GDDAT 
TEST_LOCATION TO BE WRITTEN TO (16 OR 22 BITS) (R1) 


i 

s@ ON RETURN FROM SUBROUTINE TEST_LOCATION SHOULD HAVE THE SAME DATA 
s¢ AS DOR AND THE SAME AS PATTERN 

3¢ THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 
s@ NPR REGISTER SELECTED 


BGNROUT INE 


MOVE PATTERN TO 


DOR 
DO EXTERNAL WRITE FROM TEST_LOCATION 
RETURN 


ENDROUT INE 


| 
— | 
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659 
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SUBROUTINE - DIAGNOSTIC_DATA_OUT SUBROUTINE 


002210 013737 001124 177732 
002216 011111 
002220 000207 


002222 052737 000001 177730 
002230 011111 


684 002232 000207 


002234 011637 001122 
002240 104035 
002242 000002 


=" MOV $GODAT ,DOR s STORE PATTERN IN DOR 
: ore pete s EXTENAL READ TO PROVIDE ADDRESS 


-SBTTL SUBROUTINE - DIAGNOSTIC_DATA_IN SUBROUITNE 


3@ INPUTS: PATTERN TO BE WRITTEN TO MEMORY AND THEN TO DOR $GDDAT 
3¢ TEST_LOCATION TO READ FROM (16 OR 22 BITS) (R1) 


: 

3@ ON RETURN FROM SUBROUTINE DOR SHOULD HAVE THE SAME DATA AS 

3* SPECIFIED MEMORY LOCATION AND THE SAME AS THE PATTERN 

3@ THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 
:@ NPR REGISTER SELECTED. 


BGNROUT INE 


LET OCSR<O> = @1 
00 EXTERNAL WRITE FROM TEST_LOCATION 
RETURN 


ENDROUT INE 
3 een en a a ee a a a ee a 
OOIN: 61S #8ITOO ,OCSR s SET GO BIT 
He Hs of man s PROVIDE ADDRESS FOR DMA 


-SBTTL SUBROUTINE - TIMEOUT_ROUTINE 
3* THIS ROUTINE IS USED TO FLAG AN UNEXPECTED TIMEOUT. 


BGNROUT INE 
STORE ADDRESS THAT CAUSED TIMEOUT 
ERROR 
RETURN 

ENDROUT INE 


s STORE ADDRESS THAT TIMED OUT 


TIMOUT: MOV (SP), $BDADR 
ERROR +35 3 UNEXPECTED TIMEOUT 


RTI 


-SBTTL SUBROUTINE - MAP_PROGRAM_AREA 
3# THIS ROUTINE MAPS THE PROGRAM AREA TO THE FIRST 32K 


’ 
s BGNROUTINE 
; 


KTJ11-8 DIAGNOSTIC 
SUBROUTINE - MAP_PROGRAM_AREA 


———————————_—_—_—_——_-_- rrr OOOO" OH 


Le 
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172354 
172354 
172354 


SEQ 0021 
3 MAP PROGRAM AREA THRU KIPAR'S TO FIRST 32 K 
3 NO CACHE BYPASS 
; RET 
3 
3 ENDROUTINE 
8 
i leet tn eee ee a a a a a ee a ee 
MAPPR : 
MOV RO, -(SP) ssPUSH RO ON STACK 
MOV R1,-CSP) 3sPUSH R1 ON STACK 
MOV R2,-(SP) +sPUSH R2 ON STACK 
MOV #172300 ,RO s RO POINTS TO FIRST KIPOR 
MOV oeR1 ; 00 FOR ALL 8 REGISTERS 
1%: MOV #77406 ,CRO)>+ s . 4K PAGE, CACHE ON, READ/WRITE 
sos 21% 3 CONTINUE TILL DONE 
MOV #172340,RO 3 RO POINTS TO FIRST KIPAR 
MOV eR1 ; DO FOR ALL 8 REGISTERS 
MOV Re s START WITH ADORESS O 
2s: MOV R2,CRO)+ 3 . LOAD WITH ADORESS 
ADO 200 ,R2 3 . NEXT 4K 
S08 R1,2% s . CONTINUE TILL DONE 
CLR RO)>« 3; CLEAR KIPARG 
MOV #177600, (RO) s I/0 PAGE TO KIPAR7 
MOV SP)+,R2 s3sPOP STACK INTO R2 
MOV CSP)+,R1 33POP STACK INTO Ri 
MOV (SP )+,RO 33:POP STACK INTO RO 


Ps] 
= 
w 


-SBTTL SUBROUTINE - MEMORY SIZE 
s@ THIS ROUTINE SIZES MAIN (PMI) MEMORY IN 4K WORDS. 
BGNROUT INE 
REMAP TIMEOUT VECTOR AND PROGRAM AREA 
MEMORY MANAGEMENT UNIT 


F 

; 

$ 

$ 

F ENABLE 

$ DO UNTIL TIMEOUT OR ALL 2M CHECKED 

: . CHECK LOCATION O IN EACH 4K PAGE THRU KIPARG6 

$ ENDDO 

: 

s ENDROUTINE 

’ 

t en eee ee ee eee ee ee eee ee eee eee se ee ee ee 

MEMSIZ: MOV ERRVEC ,R2 3; SAVE TIME OUT VECTOR 
MOV @3% ,ERRVEC + POINT NEW TO PROGRAM 
MOV #340 ,ERRVEC+2 3; AT PRIORITY 7 

F 

s; SIZE MEMORY IN 4K WORDS 

$ 
MOV 200 , KIPAR6 3 FIRST 4K 
BR es ; GO TRY te ACCESS 

1%; ADO #200 , KIPAR6 3: . NEXT 4 

2%: TST 80140000 a e ACCESS. THRU KIPAR6 
CMP #170000 , KIPAR6 3 . LAST PAGE? 





Je 
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SEQ 0022 
SUBROUTINE - MEMORY SIZE 
763 002402 001367 BNE i$ s . IF NOT, BRANCH 
764 002404 012701 000040 MOV $40,R1 : IF 2M PRESENT, ONLY 21ST MASKED 
765 002410 000402 BR 4$ 3: BRANCH 
766 002412 005726 3$: TST (SP )+ 3 RESTORE STACK 
767 002414 0057, TST (SP )+ ; 
768 002416 010237 000004 4$: MOV R2,ERRVEC s RESTORE TIMEOUT VECTOR 
769 002422 000207 RTS PC 3 RETURN 
770 
771 .SBTTL SUBROUTINE - SIZE UNIBUS MEMORY FROM KMCR 
772 
773 3@ ON RETURN FROM THIS SUBROUTINE R2 WOULD HAVE PAR VALUE 
774 a OF UNIBUS MEMORY 
775 
776 013701 177734 UMSIZ: MOV RL 3 SAVE KMCR 
777 002430 042701 1$: BIC #6BITO5,R1 3; LEAVE ONLY @ OF PAGES 
778 002434 012702 007600 MOV #7600 ,R2 3: START W/O UNIBUS MEMORY 
779 002440 162702 000200 1008: SUB #200 ,R2 3 . SUBTRACT 4K 
780 002444 077103 S08 R1,100$% 3 . FOR ALL PAGES PRESENT 
781 002446 RTS 
782 
783 
cos .SBTTL SUBROUTINE - INITIALIZE THE UBE’'S 
ae 3# THIS ROUTINE IS USED TO INITIALIZE THE UBE’'S 
: 

788 3; BGNROUTINE 
789 H 
790 3 SAVE RO,R1 
791 3 LET RO := FIRST UBE ADDRESS 
792 3 DO FOR (RO) : 28 A eee TO BE1ICR1 
793 3 LET CRO) : 
794 ; ENDOO 
795 3 RESTORE R.,RO 
796 3 RETURN 
797 3 
796 3 ENDROUTINE 
799 3 
800 Brn en re en en nn en en ee en en ee eee ee een een n eee eeeeee- 
801 
802 002450 IUBE: 

002450 010046 MOV RO, -C(SP) 33PUS'4 RO ON STACK 

002452 010146 MOV R1,-CSP) 33PUSH R1 ON ST 
803 002454 013700 002150 MOV BE106 ,RO s POINT RO TO UBE REGISTERS 

002460 012701 000010 MOV #10,R1 ; SET UPA — COUNTE! 
805 002464 0127 5$: MOV #0, (RO)>+ : CLEAR OUT A REGISTER 
806 002470 077103 soB R1,5% 3 HAVE WE INIT . ae THE UBE ? 
807 002472 012601 MOV (SP )+,R1 33POP STACK INTO R1 

002474 012600 MOV (SP)+,RO 33POP STACK INTO RO 
808 002476 000207 RTS PC 
809 
810 
611 3 
812 3 STARTING POINT OF PROGRAM 
613 F 
614 
815 002500 


START: 
33 LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 
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816 
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THE UBE'S 


002566 
000040 


177777 
000100 


177777 


17777 7 


003004 


000176 
000174 
000004 


001206 


EMTSAV: TST SAV30 33 FIRST TIME THROUGH ? 
BNE VMKOR 33 BRANCH IF BEEN HERE ALREADY 
BIT #8ITS 8052 3; ARE WE IN UFD MODE ? 
BEQ VMKOR 33 LEAVE IF NOT 
MOV @-1,UFOFLG 33 SET UFD FLAG 
BIT #BIT6. 8052 3: ARE WE IN QUIET MODE ? 
BEQ i$ 33: BR IF NOT 
MOV @-1,UQUIET ss SET QUIET MODE 
1$: EMT 42 33 GET ADORESS OF XXDP DCA TABLE 
CLR 42(RO) 33 CLR XXDP+ “DRSERR” 
MOV 30,SAV30 33 SAVE EMULATOR ADDRESS 
MOV 32, SAV32 33 SAVE EMULATOR PRIORITY LEVEL 
BR VMKOR 33 GET TAG AREA 
SAV30: .WORD 0O 33 PUT EMULATOR INFO HERE 
SAV32: .WORD O 33 PUT PRIORITY LOCATION HERE 
UFOFLG: .WORD 0O 33 USER FRIENDLY MODE FLAG 
aa -WORD O 33: UFD QUIET MODE FLAG 


j POSROSESESESEsEsesenesesesesessesesesesessssesseseeesseeeseseeeeeesees 
-SBTTL INITIALIZE THE COMMON TAGS 
3sCLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV @SCHTAG RE ssFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 33CLEAR MEMORY LOCATION 

chp @SWUR,R6 ; ;DONE? 

BNE -* s3sLOOP BACK IF NO 

MoV @STACK , SP ssSETUP THE STACK POINTER 


ssINITIALIZE A FEW VECTORS 
@sSCOPE ,@@IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
0340 ,@@IOTVEC+2 ;;LEVEL 7 
@sERROR, VEC ;;EMT VECTOR FOR ERROR ROUTINE 
0340, SeEMTVEC +2 3sLEVEL 7 
OsTRAP, BOTRAPVEC 7 age VECTOR FOR TRAP CALLS 
0340, @OTRAPVEC+2;LEVEL 7 
PRIN C3 as FAILURE VECTOR 


@340 

SENDCT,SEOPCT ;;SETUP END-OF -PROGRAM COUNTER 
$TIMES ssINITIALIZE NUMBER OF ITERATIONS 
sESCAPE ssCLEAR THE ESCAPE ON ERROR 


ssALLOW ONE ERROR PER TES 
eer i INITIALIZE THE LOOP ADDRESS a SCOPE 
$LPERR 3;SETUP THE _— LOOP ADDRESS 
ssSIZE FOR A Hanoi SWITCH REGISTER. IF NOT FOUND OR IT IS 
ssEQUAL TO A “-1", SETUP FOR A SOFTWARE GMITCH REGISTER. 
MOV @PERRVEC,-(SP) 1;SAVE ERROR VECTOR 


Tee 


MOV 064%, Q0ERRVEC ;;SET UP ERROR VECTOR 
MOV @OSUR , SUR ssSETUP FOR A HAROWARE SWICH REGISTER 
MOV @ODISP DISPLAY 1;AND A HARDWARE DISPLAY REGISTER 
CMP @-1,8SUR ssTRY TO REFERENCE HARDWARE SWR 
SNE 66% 1 sBRANCH IF NO TIMEOUT TRAP OCCURRED 
3sAND THE HARDWARE SWR IS NOT = -1 

BR 65% 1 sBRANCH IF NO TIMEOUT 

64%: or 065%, (SP) 33SET UP FOR TRAP RETURN 

65%: MOV @SWREG , SWR ssPOINT TO SOFTWARE SWR 
MOV @OISPREG , DISPLAY 


A 
66%; MOV (SP)+,@@ERRVEC ;,RESTORE ERROR VECTOR 
CLR $PASS ssCLEAR PASS COUNT 
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003030 152737 


003036 001403 
003040 012737 
003046 


631 003256 005037 
832 003262 013737 
833 003270 


634 003270 012706 


Le 
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INITIALIZE THE COMMON TAGS 


000200 
001222 
002574 
000001 


177777 
023142 
003150 
000042 
001220 


001221 


001140 


001220 


000042 


001720 


67%: 


- SBTTL 


70%: 
718: 


33698: 
68%: 
1%: 


RESTART: 


nee ——--—- -——_} 


SEQ 0024 


BITB @APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 
BEQ 67% 3sYES,USE NON-APT SWITCH 
MOV @¢SWREG, SWR +3NO,USE APT SWITCH REGISTER 
TST UQUIET 3 ARE WE UNDER UFD QUIET MODE ? 
BNE is s YES, THEN SKIP THE DIAGNOSTIC TITLE PRINTOUT 
@APTENV , SENV 3 APT? 
1% ; IF YES, SKIP PRINTOUT 
. TYPE PROGRAM NAME 
33TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC @-1 ssFIRST TIME? 
BNE 68% 
CMP @SENDAD , 8042 33sACT-11? 
BEQ 68% + sBRANCH IF YES 
TYPE 69% ss TYPE ASCIZ STRING 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST BAe 3sARE WE RUNNING UNDER XXDP/ACT? 
BNE 70% + sBRANCH IF YES 
CMPB sENV, #1 :sARE WE RUNNING UNDER APT? 
BEQ 70% + sBRANCH IF YES 
CMP SWR , @SWREG ssSOFTWARE SWITCH REG SELECTED? 
71% 3: sBRANCH IF NO 
— ns 33GET SOFT-SWR SETTINGS 
NOVB #1, $AUTOB 33SET AUTO-MODE INDICATOR 
aR 33GET OVER THE ASCIZ 
.ASCIZ CORLE >< COKTABO KTJ11-8 DIAGNOSTIC #<CRLF> 
MOV @TIMOUT 804 : SETUP TIMEOUT VECTOR FOR UNEXPECTED TIMEOUT 
MOV 0340 , 806 : 
CLR TEST s TEST @ FOR ERROR REPORTING 
3; SIZE MEMORY IN 4K PAGES 
JSR 3 REMAP PROGRAM AREA 
BIS @81T05!BIT04 res 3: ENABLE RELOCATION AND 22B8ITS 
INC MMRO 3; ENABLE MMU 
JSR PC ,MEMSIZ : GET HIGHEST 128K OF MEMORY 
CLR MMRO ; DISABLE MMU 
CLR MARS 3 
MOV KIPARG6 ,PMIS : STORE HIGHEST PAGE 
#1100,SP ; SET UP THE STACK POINTER 
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TEST - UNIBUS MAP REGISTER TESTS 


—— 


003274 


892 003364 


Me 
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000004 
003374 
000340 


172516 


172516 


172516 


.SBTTL TEST - UNIBUS MAP REGISTER TESTS 


3 THIS TEST WILL TRY TO ACCESS ALL THE MAP 
3 REGISTERS WITH BOTH MAPPING ENABLED AND 
3# DISABLED 


BGNTST 
LET 4:= ADORESS OF ERROR ROUTINE 
LET 6:=* PRIORITY OF 7 
DO FOR BOTH UNIBUS MAP ENABLED AND DISABLED 
-. DO FOR ADORESS := 170200 TO 170376 
. READ ADDRESS 
IF ADDRESS CAN'T BE READ THEN 
. TRAP THRU VECTOR 4 


. ENDIF 
ENDOO 
ENDOO 
EXIT TEST 
E : 
REPORT WHICH MAP REGISTER TIMED OUT 
ENDTST 


fp SSSHSEEREESHHOCEHOEFAGEHASROEHEELACEESHSSHRHDARGEEAEAHEHEHEEERHSE 


3;@TEST 1 UNIBUS MAP REGISTER RESPONSE TEST 
ff SCSCOSSSSSESSESSSESESESSEEEEESESESEEEESSESESEEEEEEEEEEESEDEEESEES 
TSTl: SCOPE 
F 
; SET UP MEMORY TIMEOUT VECTOR TO ERROR ROUTINE 
MOV aoa RS 
MOV 020% ,804 
MOV 0340 , 806 
3 
; DISABLE UNIBUS MAPPING 
PF 
BIC @BITS,@eSRS ; DISABLE UNIBUS MAPPING 


H 
3; TRY TO ACCESS ALL THE UNIBUS MAP REGISTERS 
i 


; SET UP TIMEOUT PRIORITY 


; SAVE THE TIMEOUT VECTOR 
; SET UP TIMEOUT VECTOR TO ERROR ROUTINE 


CLR Ri : wg yn LOOP COUNT 
S$: MOV @MAPLOO ,RO ; . RO POINTS TO MAP why #0 
10%: TST (RO)+ ; TRY TO READ MAP REGISTER 
12%: CMP RO , #170400 : . . HAVE WE READ ALL THE MAP REGISTERS 
BNE 10% :; . . NO THEN GO READ THE NEXT ONE 
TST Ri s . HAVE WE DONE THIS TWICE 
BEQ 15% ; . GO TURN ON UWI AND TRY AGAIN 
BIC #6ITS,SRS s . TURN OFF UNIBUS MAPPING 
MOV 804 ; RESTORE THE TIMEOUT VECTOR 
BR TST2 33 . GO TO NEXT TEST 
15%; INC R1 s . INCREMENT LOOP COUNT 
BIS #BITS,SR3 s . TURN ON UNIBUS MAP 


| Tl 


Ne 
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UNIBUS MAP REGISTER RESPONSE TEST 

roe 003372 000755 BR 5$ 

8 3 

695 ; MAP REGISTER TIMEOUT ROUTINE 

896 3 

897 003374 005726 20%: TST CSP )+ 

898 003376 005726 TST (SP )+ 

899 003460 162700 000002 SUB @2,RO0 

900 003404 010037 001122 MOV RO, $BDADR 

901 003410 062700 000002 ADO @2,RO0 

902 003414 104001 ERROR ol 

903 003416 000746 BR 12$ 


SEQ 0026 


. GO TRY TO ACCESS THE REGISTERS 


CLEAN UP THE STACK 


GET ADDRESS THAT TIMED OUT 
PUT IT IN $BDADR 
GET NEXT ADDRESS 
REPORT THAT ACCESS HAS TIMED OUT 
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TEST - UNIBUS MAP REGISTER BIT PATTERN 


003420 


i ee —_— -- = eee ee ee ee 
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-SBTTL TEST - UNIBUS MAP REGISTER BIT PATTERN 


3¢ THIS TEST IS DESIGNED 70 DETECT ANY STUCK 
3¢ AT BITS OR SHORTED BITS IN THE UNIBUS MAP 
3¢ REGISTERS 


BGNTST 


CLEAR ALL MAP REGISTERS 
00 FOR ADDRESS := 170200 TO 170376 


¢ CHECK LOW MAPPING REGISTERS 
& 


3 
3 

3 

3 

36 

: 

: 

3 READ ADDRESS 

3 . IF ADORESS NE O THEN 

3 ‘ io MAP REGISTER DID NOT CLEAR 
3 e 

3 OO FOR PATTERNS :* 377, 7417,1463,52525,125252 
: WRITE PATTERN INTO ADORESS 

3 TERN 

3 

3 

3 

3 

4 


- READ PAT 
- IF CONTENTS OF ADDRESS NE PATTERN THEN 
. ERROR IN BITS OF ADDRESS 
ENDIF 
ENDOO 
LET ADDRESS :* ADDRESS « 2 
‘s CHECK HIGH MAPPING REGISTERS 


READ ADDRESS 

IF ADORESS NE O THEN 
ce MAP REGISTER DID NOT CLEAR 

DOO FOR PATTERNS :* 17,14,25,52 

- WRITE PATTERN INTO ADORESS 

READ PATTERN 

IF CONTENTS OF ADORESS NE PATTERN THEN 
- ce IN BITS OF ADDRESS 


§ SOSCSSSSESSSSESSSEEESESEEEESESOSESESESESOSOSEEEEESEEEODESEDODEOE 
seTEST 2 UNIBUS MAP REGISTER BIT PATTERN TEST 


TST2:  <=COPE 


; 
s CLEAR ALL MAP REGISTERS 
H 


MOV @MAPLOO ,RO s GET ADDRESS TO 1ST MAP REGISTER 

S$: CLR (RO)> 1 . CLEAR THE MAP REGISTER 
CMP RO, 0170400 s . MAVE WE CLEARED ALL THE MAP REGISTERS ? 
BNE S$ s . NO THEN GO CLEAR THE NEX 


CZ 
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SEQ 0028 
T2 UNIBUS MAP REGISTER BIT PATTERN TEST 
960 H 
961 + DO A READ,WRITE READ ON THE REGISTERS TO 
: VERIFY ALL THE BITS OF THE LOW MAP REGISTERS 
963 3 
964 003436 012700 170200 MOV @MAPLOO ,RO 8 i ADORESS TO 1ST MAP REGISTER 
005710 10%: TST CRO) r IS THE MAP REGISTER CLEAR ? 
966 003444 001410 BE 15% 3 S, THEN GO CHECK THE BITS 
967 003446 011037 001126 MOV CRO), SBODAT 3 NO, THEN GET Lag B 
968 003452 012737 000000 001124 MOV ° T 4 T THE GOOD 
969 003460 010037 001122 MOV e r GET THE SORES. THAT OID NOT CLEAR 
970 003464 104002 ERROR oe 3 - $s OID NOT EAR 
971 003466 012701 001774 15%: Rov OPTRNI6 ,R1 3 GET POINTER TO PATTERN TABLE 
972 003472 011110 208: MOV CR1), CRO) F MOVE PATTERN TO MAP REGISTER 
973 003474 012102 MOV (R1)> ,.R2 8 MOVE COPY OF PATTERN TO R2 
974 003476 000001 BIC eBITO, 3 OF THE PAT 
975 003502 020210 Cor e s . . OID PATTERN GET WRITTEN CORRECTLY ? 
976 003504 001410 BE OQ $ Fy . YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 
977 003506 011037 001126 MOV (RO), SBODAT : . . NO,GET THE BAD DATA 
976 003512 005741 TST -(R1) s . . POINT TO THE GOOD DATA 
ws sare 003514 012137 001124 OV (R1)+, SGDDAT s . . GET THE DATA,AD POINT R1 TO THE NEXT DA 
$60 003520 010037 001122 MOV RO. SBDADR 3 GET THE ADDRESS OF DATA FALLT 
961 003524 104005 ERROR ° 3 ERROR - REGISTER COULD NOT HOLD PATTERN 
3526 005711 25% TST (R1) 3 ARE WE THROUGH THE TABLE ? 
= 003530 001360 Be 206 ry NO THEN GO WRITE NEXT PATTERN 
3 
965 : 00 A READ, WAI THE REGISTERS TO 
be 3s VERIFY ALL THE BITS OF THE HIGH MAP REGISTERS 
3 
968 003532 062700 000002 ADO @2,R0 3s . POINT TO THE HIGH MAPPING REGISTER 
969 003536 005710 Boe TST (RO) 1 . IS THE MAP REGISTER CLEAR ? 
001410 BEQ 8 s . YES, THEN GO CHECK THE BITS 
991 OOSS42 011037 001126 MOV (RO), SBODAT s . NO, THEN GET THE BAD DATA 
012737 001124 Ov 60, T 3 GET THE GOOD DATA 
010037 001122 Ov RO, 3 GET THE ADORESS THAT DID NOT CLEAR 
994 003560 104002 ERROR 2 3 ERROR - REGISTER DID NOT CLEAR 
995 003562 012701 002010 35%: MOV ar ° ry GET POINTER TO PAT TABL 
011110 40%: MOV (R1),CRO) 3 MOVE PATTERN TO MAP REGISTER 
997 003570 012102 Mov 1)+,R2 3 MOVE COPY OF THE PATTERN TO R2 
996 003572 042702 177700 BIC 177700 ,R2 3 MASK OUT THE UPPER 10 BIT 
999 0CO3S76 020210 Cep (RO) ry OID PATTERN GET WRITTEN CORRECTLY ? 
— 003600 001410 GEO 43% 8 YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 
1901 003602 011037 001126 Ov CRO), SBDDAT : . . NO,GET THE BAD DATA 
1002 003606 005741 TST -(R1) s . . POINT TO THE GOOD DATA 
- ee 003610 012137 001124 MOV (R1)+, SGDDAT 3 . . GET THE GOOD DATA, AND POINT R1 BACK TO THE NE 
1004 003614 010037 001122 mov RO, $BOADR : GET THE ADORESS OF DATA FAULT 
1005 003620 104003 ERROR 3 kas at REGISTER COULD NOT HOLD PATTERN 
1006 003622 005711 4S¢; TST (R1) 3 . . ARE WE THROUGH THE TABLE ? 
aad 003624 001560 BNE AOG s . . NO THEN GO WRITE NEXT PATTERN 
t 
ote s SEE IF WE WAVE CHECKED ALL THE MAP REGISTERS 
Fy 
1011 003626 062700 000002 ADO @2,R0 s . POINT TO NEXT REGISTER 
1012 003632 020027 170400 CMP RO, 0170400 s . ARE WE THROUGH ALL THE MAP REGISTERS ? 
1013 003636 001501 BNE 106 s . GO CHECK THE NEXT REGISTER 
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1059 003710 


Ess 
1060 003714 


? 
1068 003732 
REGISTERS 
1069 003734 
1070 003736 


005740 
010037 
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TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 


170200 
170200 


SEQ 0029 


-SBTTL TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 
ie THIS TEST IS yoy TO DETECT ANY DUAL ADDRESSING 
3¢ IN THE UNIBUS MAP ADDRESSING LOGIC 

BGNTST 


DO FOR ADDRESS :* 170200 TO 170376 
. WRITE @ADORESS TO ADDRESS 


ENDOO 
DO FOR ADDRESS := 170200 TO 170376 


. READ ADORESS 

. IF CONTENTS OF ADDRESS NE — THEN 
. REPORT ERROR IN ADDRESS 

. ENDIF 

ENDOO 


8S SSOSOSESSSSSSSSHSSSSSSSSSSSSSSSSSSHSSSSSSSHSSSSHSSESSEEESSESEEES 


seTEST 3 UNIBUS MAP REGISTER UNIQUENESS TEST 
+> agar =" in tl ae aaa eatin: 
: 


é 
3 WRITE ADORESS INTO ALL MAP REGISTERS 
4 


MOV @P4APL.OO ,RO s GET ADDRESS C. 1ST MAP REGISTER 
MOV @MAPLOO .R1 s GET ADORESS OF 1ST MAP REGISTER 
S$: MOV RO.CR1)« s . WRITE ADORESS TO ITSELF 
ADO #2 RO s . GET THE NEXT ADORESS 
cep #170400 ,RO s . MAVE WE WRITTEN TO ALL MAP — ? 
BNE 4 s . NO,TWEN GO WRITE TO NEXT ADORESS 
a 
3 MAKE SURE EACH LOW MAP REGISTER CONTAINS IT'S ADORESS 
é 
MOV @MAPLOD RO s GET ADORESS TO 1ST MAP REGISTER 
MOV @MAP_OO ,R1 s GET ADORESS TO 1ST MAP REGISTER 
106; chp RO,(CR1)+ 1 . WAS THE ADORESS WRITTEN TO THE MAP REGISTER ? 
BEQ 15% s . YES, THEN GO CHECK THE HIGH MAP REGISTER 
TsT -(RO) s . NO GET THE ADDRESS — WAS WRITTEN 
MOV RO. $GLADR ’ GET THE GOOD ADORESS 
MOV CRO)+, SBDADR ‘ GET THE BAD ADORESS.AND POINT BACK TO NEXT ADOR 
ERROR +4 s . ERROR IN ADORESSING OF MAP REGISTERS 


; MAKE SURE EACH HIGH MAP REGISTER CONTAINS IT'S ADORESS 


$ 

156: ADO @2,R0 s . POINT RO TO HIGH MAP REGISTER 
MOV RO,R2 s . PUT A COPY OF IT INTO R2 

BIC #177700 ,R2 1. MASK OUT THE UPPER 10 

chp R2,(R1)« ‘ 


BEQ 206 s . YES, THEN GO CHECK IF WE ARE THROUGH ALL THE MAP 
TST -(RO) 1 . NO GET THE ADDRESS THAT WAS WRITTEN 
MOV RO, $GDADR s . GET THE GOOD ADORESS 


BITS 
. WAS THE ADORESS WRITTEN TO THE HIGH MAP REGISTER 
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3 UNIBUS MAP REGISTER UNIQUENESS TEST wae Gee 

1071 003742 012037 001122 MOV (RO)+, $8DADR 1 . GET THE BAD ADORESS,AND POINT BACK TO NEXT ADOR 
Ess 

1072 003746 104004 ERROR +4 + . ERROR IN ADDRESSING OF MAP REGISTERS 

in 

1074 ; CHECK TO SEE IF WE HAVE CHECKED ALL MAP REGISTERS 

10 3 

1076 003750 062700 000002 203: ADD #2,R0 s . GET THE NEXT REGISTER 

107? 003754 020027 170400 CMP RO, #170400 : . HAVE WE CHECKED ALL THE MAPPING REGISTERS 

1078 003760 001346 BNE 10% : . NO, THEN GO CHECK THE NEXT REGISTER 

1080 


1061 


CZ 
i. | 
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SEQ 0031 
TEST - UNIQGENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGIST 
1083 -SBTTL TEST - UNIGENESS BETWEEN LOW NAP REGISTERS AND HIGH MAP REGISTERS 
1084 
1085 
1086 - THIS TEST IS aatsvake TO TEST THE UNIQUENESS BETWWEN THE LOW 
1087 3¢ AND HIGH MAP REGISTERS 
1088 
1089 ; ®BGNTST 
1090 3 
1091 3 DO FOR ADORESS := 170200 hg 170374 
1092 3 WRITE #77777 TO ADDRESS 
1093 3 NDDO 
1094 3 DO FOR ADORESS := 170200 TO 170374 BY 4 
1095 3 LET R2 :* CONTENTS OF ADORESS 
1096 F LET R3 := CONTENTS OF ADORESS « 2 
1097 3 LET R3 := RZ - R2 
1098 3 IF R3 EQ 
1099 3 " IN DIFFERENTIATING BETWEEN HI AND LO REGISTERS 
1100 3 ENDIF 
1101 3 
1102 3 
1103 3 ENDTST 
1104 3 
1105 Brrr re eee we nnn ween nen nnn nw ene eee n enn ence eee ee n-ee 
1106 
1107 8 $966066060060060006066060600660600606060060000006000000606600600000068080006 
seTEST 4 HIGH AND LOW MAP REGISTER UNIQUENESS TEST 
8 $9S606600606006006006000006060060660600606060600006000000000086000008 
003762 000004 TST4: SCOPE 
1108 
1109 3 
sat ; WRITE #77777 TO ALL ADORESSES 
3 
1112 003764 012700 170200 MOV @MAPLOO ,RO 3 GET ADORESS OF FIRST MAP REGISTER 
1113 003770 012720 077777 S$: MOV 77777 ,CRO)> 3 . WRITE 77777 TO MAP REGISTER 
1114 003774 020027 170400 CMP RO, #170400 3 . HAVE WE WRITTEN TO ALL REGISTERS ? 
rt 004000 001373 BNE 5% , : . NO, THEN GO WRITE TO THE NEXT REGISTER ? 
3 
tH 3 MAKE SURE THAT HIGH MAP REGISTER BITS 6-15 ARE CLEARED 
3 
1119 004002 012700 170200 MOV @MAPLOO ,RO 3 GET ADDRESS OF FIRST MAP REGISTER 
1120 004006 012002 10% MOV CRO)+ Re s . GET CONTENTS OF LOW MAP REGISTER 
1121 004010 012003 MOV (RO)+,RS : . GET CONTENTS OF HIGH MAP REGISTER 
160302 SUB R3,R2 : . DID THE REGISTERS GET ADDRESSED CORRECTLY ? 
wi 003007 BGT 15% 3 YES, THEN GO SEE IF WE HAVE CHECKED ALL THE MAP R 
1124 004016 005740 TST -(RO) + . NO, 
1 004020 005740 TST -(RO) s . POINT TO THE LOW MAP REGISTER 
1126 004022 012037 001124 Mov CRO)+, SGDDAT 3 . GET CONTENTS OF LOW MAP REGISTER 
1127 004026 012037 001126 MOV (RO)+, $BDDAT 3 GET CONTENTS OF HIGH MAP REGISTER 
. 1128 004032 104005 ERROR 5 ’ ERROR - MAP REGISTERS WERE NOT ADDRESSED CORREC 
Y 
1129 F 
tf s SEE IF WE HAVE CHECKED ALL THE MAP REGISTER PAIRS 
3 
1132 004034 020027 170400 15%: CMP RO, #170400 : . HAVE WE CHECKED ALL THE REGISTERS ? 
1133 004040 001362 BNE 106 : . NO, THEN GO CHECK THE NEXT PAIR !3!3 
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SEQ 0032 
TEST - OCSR REGISTER RESPONSE TEST 
1136 -SBTTL TEST - OCSR REGISTER RESPONSE TEST 
1137 
1138 8 
1139 3@ THIS TEST IS DESIGNED TO SEE IF WE CAN at THE 
1140 3@ DIAGNOSTIC CONTROLLER STATUS REGISTER.IF WE CAN IT 
1141 :@ TESTS OUT BITS 3-6,9-14 OF THE DCSR AND MAKES SURE 
1148 3@ THAT A BUS INIT HAS A PROPER RESPONSE IN THE DCSR. 
114 3 
1144 3 
1145 : BGNTST 
1146 3 
1147 : LET 4 := ADORESS OF — ROUTINE 
1148 3 LET 6 := PRIORITY OF 7 
1149 3 LET ADDRESS := 177730 
1150 3 READ ss 
1151 3 
te ; CHECK BITS 3-6,9-14 OF THE DCSR REGISTER 
F 
1154 3 LET OCSR := DOCSR .OR. #77170 
1155 3 READ OCSR 
1156 3 IF OCSR NE O THEN 
1157 ; REPORT ERROR IN BITS 3-6,9-14 OF THE DCSR REGISTER 
1-4 F ENDIF 
3 
rt 3s CHECK OUT THE OCSR RESPONSE TO A RESET 
3 
1162 3 CACHE THE RESET ee 
1163 : LET OCSR := DCSR .OR. @ 
1164 PF DO A RESET TO INITIALIZE ~ 
1165 : IF LOWER BYTE OF DCSR GT N 
oat 3 (BIT 7 OID wr GET SET BY BUS INIT) 
3 
1168 3 LET OCSR := DCSR .AND. #6 
1169 3 IF OCSR NE O THEN 
1170 ; ‘ T ERROR (BITS 1,2 DIDN'T CLEAR ON BUS INIT) 
1171 ry ENDIF 
1172 ’ ENDIF 
1173 3 EXIT TEST 
1174 3 : 
or Fy REPORT THAT ACCESS TO DCSR HAS TIMED OUT 
3 
1177 s ENDTST 
1178 3 
1179 Brrr rrr errr rere new w wwe een e ween wenn nnn enn nnnne 
11860 
1161 Mmiriiitiiitiiiiiiiitiiiiiiiiitiiiiiiiiiiiititiiiiitiitititt ttt ttt 
s¢TEST 5 OCSR REGISTER TEST 
§ J SSSSSSSSSESESSSSEESSEEEEEESESSESSEEEEEEEEEEESEESESEEDEOEEEEEEEES 
004042 000004 TST5: SCOPE 
1162 
1163 i 
94 s SET UP MEMORY TIMEOUT VECTOR 
’ 
11866 004044 012737 004216 000004 MOV 020% ,804 : SET UP VECTOR PC TO ERROR ROUTINE 
ne: 004052 012737 000340 000006 MOV 0340 , 866 3 SET UP VECTOR PSW TO PRIORITY 7 


4 
1189 s READ ADDRESS OF DCSR TO SEE IF IT TIMES OUT 





Oo 
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SEQ 0033 
TS OCSR REGISTER TEST 
1190 ’ 
1191 004060 005737 177730 TST 8e0CSR s WILL THE OCSR TIMEOUT ? 
1192 004064 012737 002234 000004 MOV @TIMOUT , O04 s RESTORE TIMEOUT VECTOR 
1193 3 
1194 ; TRY TO WRITE ONES TO BITS 3-6 AND 9-14 ( BIT 03 SHOULD STAY WRITTEN) 
1195 F 
1196 004072 052737 077170 177730 BIS #77170,800CSR s TRY TO WRITE TO READ ONLY BITS 
1197 004100 032737 077160 177730 BIT #77160, 800CSR s OIO THEY GET WRITTEN TO ? 
1196 004106 001412 BEQ 5% s NO, THEN GO CHECK THE — OF A RESET ON THE OCSR 
1199 004110 013701 177730 MOV GO0CSR,R1 s GET COPY OF DCSR INTU 
1200 004114 042701 100607 BIC #100607 ,R1 : MASK OUT UNTESTED aIvs 
1201 004120 010137 001126 MOV Ri, T s PUT THEM INTO BAD DATA 
1202 004124 012737 000010 001124 MOV #10, $GODAT s GOOD DATA 
pot 004132 104006 ERROR +6 s ERROR - IN BITS 3-6,9-14 OF DCSR 
3 
coos 3 CACHE THE RESET INSTRUCTION 
3 
1207 004134 012737 000200 001124 58: MOV @8IT7, $GODAT s ONLY 7 SHOULD BE SET AFTER RESET 
1208 004142 053737 177730 001124 BIS OCSR , $GDDAT s SET BOOT BITS 
roe 004150 005737 004162 TST 10% 3 CACHE THE RESET 
3 
oak ; SET UP DCSR,DO A RESET,MAKE SURE PROPER RESPONSE OCCURS 
3 
1213 004154 052737 000006 177730 BIS #6 ,8@0CSR 3s SET AY 7 AND CLEAR BIT 1.2 
1214 004162 000005 10% RESET ; 0O A BUS INIT 
1215 004164 032737 000200 177730 BIT @8IT7,800CSR 3; OID BIT 7 GET SET ? 
1216 004172 001001 BNE 15% s YES, THEN GO CHECK IF Ai. 1.2 GOT CLEAR 
1217 004174 104007 ERROR +7 ’ » THEN ERROR - BIT 7 DIDN'T GET SET 
1218 004176 032737 000006 177730 15%: BIT #6 ,8@0CSR s OIO BIT 1,2 GET CLEARED ? 
1219 004204 001410 BEA TST6 33 YES, THEN GO TO next TEST 
1220 004206 013737 177730 001126 MOV S00CSR , SBDDAT 3s NO, THEN GET CONTENTS OF THE DCSR 
1221 004214 104007 ERROR +7 s ERROR - BIT 1.2 DID NOT GET CLEAR 
1222 3 
1223 3 ERROR ROUTINE 
1224 3 
1225 004216 012737 177730 001122 20%: MOV @0CSR , $BDADR s GET ADDRESS OF THE OCSR 
143 004224 104010 ERROR 10 : ERROR - DCSR REGISTER ACCESS HAS TIMED OUT 
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TEST - KMCR BITS TEST 


004226 
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177730 


001124 


001122 
177734 


-SBTTL TEST - KMCR BITS TEST 


ie THIS TEST CHECKS THAT OUT OF DIAGNOSTIC MODE (OCSR<8>=0), WRITE ACCESS 


3@ TO KMCR<5-0> IS DISABLED. 
BGNTST 


LET 4 :* ADORESS OF TIMEOUT ROUTINE 

LET 6 :* PRIORITY OF TIMEOUT ROUTINE 

READ THE MEMORY CONFIGURATION FROM THE EAROM 

CHECK THAT IF DCSR<6>*0 WRITE ACCESS TO KMCR<5-0> DISABELD 
IF NOT THEN 


3 § SSHSSSSSSSSSSSSSSSSSSESSSSSSSSHSSHSESESESSHESHHESHEESHESSEEESEEEES 


s*TEST 6 KMCR MEMORY CONFIGURATION BITS TEST 
§ SSOOSSSSESESESESEESEESEESESEEEESEESEEHESEESEOEESEEEESESEEEEEES 


TST6: SCOPE 


6 
s SETUP TIMEOUT VECTOR.TO ERROR ROUTINE 
s VERIFY THAT AT LEAST SOME PMI MEMORY PRESENT 


MOV 10% , 804 3 SET VECTOR PC TO ERROR ROUTINE 
MOV E340 , O06 ; SET VECTOR PSW TO ERROR ROUTINE 
MOV KMCR , $TMPO 3s STORE KMCR 
MOV @TIMOUT , 864 3: RESTORE TIMEOUT VECTOR 
BIC #177700, $TMPO 3s CLEAR ALL BUT U.MEMORY 
CMP 077, $TMPO s NO PMI MEMORY? 
BNE 2s s IF SOME, GO TO THE re TEST 
CLR PMIS ; OTHERWISE FLAG NO PMI MEMORY 
BR TST? 33 AND EXIT TEST 
: 
3 CHECK THAT NOT IN DIAGNOSTIC MODE WRITE ACCESS TU KMCR<5-0> IS DISABLED 
: 
2s: MOV KMCR .R1 3 STORE PATTERN FROM KMCR TO R1 
COM Ri 3 COMPLEMENT THE PATTERN 
BIC #177700 ,R1 s CLEAR BITS <15-6> 
BIC @6ITO8 ,OCSR 3 MAKE SURE THAT NOT IN DIAGN. MODE 
BIC @BITOS,R1 3s ENABLE 32K, IN CASE OF ERROR 
BIS 1, 3s TRY TO WRITE TO KMCR<5-0> 
CMP Ri, 3 WRITTEN OK? 
BNE is : IF OION'T WRITE, BRANCH 
MOV KMCR , §GDDA 3: NO, THEN GET THE GOOD DATA 
MOV R1, $BODAT : GET THE BAD DATA 
MOV . $8DADR : GET THE ADORESS OF THE KMCR 
MOV sTMPO ,.KMCR s RESTORE KMCR 
ERROR ell 3s NO, THEN ERROR - BITS DID NOT GET SET CORRECTLY IN 
1s: 
BR TST7 33 GO TO THE NEXT TEST 


SEQ 0034 


| 
| 





a +e eS ee 


JS 
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T6 KMCR MEMORY CONFIGURATION BITS TEST 

1283 3 TIMEOUT ROUTINE 

1284 3 


1285 004374 012737 177734 001122 10%: MOV @KMCR , $BDADR 
1286 004402 104012 ERROR +12 


s GET THE ADDRESS OF THE KMCR 
s ERROR - MEMORY TIMEOUT HAS OCCURED 


TT 0 EE EE SE 


SEQ 0035 
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TEST - UNIBUS TIMEOUT TEST 


K3 
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170002 


002234 


177730 


SEQ 0036 


-SBTTL TEST - UNIBUS TIMEOUT TEST 


3# THIS TEST CHECKS OUT THE UNIBUS TIMEOUT LOGIC 
3* BEFORE IT IS USED IN ANY TESTS 


BGNTST 

LET 4 ;:* THE ADDRESS 10% 

LET 6 := #340 

MAKE SURE THAT UBA IS IN DIAGNOSTIC MODE ,DOCSR<8> IS SET 

got 

a UBA DIDN'T TIMEOUT ON UNIBUS ACCESS IN DIAGNOSTIC MODE 
10%: CLEAN UP THE STACK 
ENDTST 


oe ee Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
feet, 
wi 
be 
uF 4 > 
+ 
79 


$s SOSSSSSSESSESESSSESESEDESEEEEESEESESEEEEESESEESEESEESEESEEEEEES 

s*TEST 7 UNIBUS TIMEOUT TEST 

js SOSSSSSSSESSSSSSSEESEEEEESESESEDEEEEEEEDESESESESEEEESEEEEESESES 
SCOPE 


3 
; SET UP MEMORY TIMEOUT VECTOR AND PUT UBA INTO DIAGNOSTIC MODE 


TST PMIS ; ANY PMI MEMORY? 

BEQ TST10 33 IF NONE, EXIT TEST 

MOV 106,004 ; SET UP TIMEOUT VECTOR TO END OF TEST 
m0V 0340 , 806 ; 

BIS #6IT8,OCSR s PUT UBA INTO DIAGNOSTIC MODE 


; 
s READ A UNIBUS LOCATION 


TST 8170002 s TRY TO READ UBE REGISTER ? 
ERROR +36 s ERROR - SHOULD TIMEOUT HERE 
BR 11% s GO TO THE NEXT TEST 


° é 
° 6 
é 
é 


CLEAN UP THE STACK 
RESTORE TIMEOUT VECTOR 
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TEST - DATA OUT WITHOUT RELOCATION 


177730 
177730 


177730 


001124 
001126 
001124 
001126 


177730 


-SBTTL TEST - DATA OUT WITHOUT RELOCATION 


s* THIS TEST WILL PERFORM DIAGNOSTIC DATA OUT CYCLES WITHOUT — 
:*# RELOCATION. THE CYCLES WILL BE VERIFIED TO WORK CORRECTL 

3¢ — NPR REGISTER WILL SE CHECKED TO BE ABLE TO STORE PROPER 
3% 


BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<6>=1 

SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>*<0,0> 

. Ly LOCATION = 0 

PATTERN = 377,7417,31463,52525,125152 (BINARY DIVIDE) 
CALL yg TIC.DATA ge <TEST_LOCATION, PATTERN> 


IF DOR NE P 
ERROR APATH 


IF 
F TEST_LOCATION NE PATTERN THEN 
ERROR PERFORMINDG DATA OUT 


§ s SSCSSSSSSSSSESSSESSSESESSESESESEEESESEREEEEEEDESSESEEEESEESEEEE 
s*TEST 10 DATA OUT WITHOUT RELOCATION 
§  SSSSSSSSSESSSSSESSSESESESESSEESEESEEEDEEESEEDEEESEESEEEEEEEEEES 


TST10: SCOPE 


TST PMIS 3 ANY PMI MEMORY? 
BEO TST11 33 IF NONE, EXIT TEST 
BIS @6IT08 ,.OCSR s MAKE SURE DIAGNOSTIC MODE IS ON 
BIC @6IT02!:B1T01,0CSR s MAKE SURE NPR REGISTER IS SELECTED 
CLR $TMPO s CLEAR TEST LOCATION 
MOV @PTRN16 ,R2 s POINT TO BINARY DIVIDE PATTERN 
MOV @sTMPO,R1 s STORE TEST LOCATION 
BIT #81107 .,0CSR s READY BIT SET? 
BNE 1s s IF SO, BRANCH 
ERROR +17 s OCSR<7> NOT SET 
1s: MOV (R2)+, $GDDAT s . STORE PATTERN 
JSR : s . PERFORM DIAGNOSTIC DATA OUT 
CMP DOR , $GODAT s . DOR HAS PROPER PATTERN 
BEQ es s . IF YES, 
MOV DOR , $BDDAT : . ST DOR FOR ERROR REPORTS 
ERROR +13 s . ERROR IN DATA PATH 
2s; CMP $TMPO, $GODAT s . DATA OUT OK? 
BEQ 3% ; . BRANCH, IF YES 
MOV $TMPO, $BDDAT ; . STORE MEMORY FOR ERROR REPORTS 
ERROR +14 3 . ERROR IN DATA OUT 
3%: CMP #0,(R2) 3 . LAST PATTERN? 
BNE 1% ; . IF NOT, BRANCH 
BIC #6IT8,0CSR ; 


SEQ 0037 
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1416 004664 015737 


1420 
1421 
1422 004672 023737 
1423 004700 001004 
1424 004702 042737 
1425 004710 000404 


1426 004712 013737 
1427 004720 104015 
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TEST - DATA IN WITHOUT RELOCATION 


-SBTTL TEST - DATA IN WITHOUT RELOCATION 
3@ THIS = WILL PERFORM DIAGNOSTIC DATA IN CYCLE AND VERIFY ITS 


3* OPERAT 
BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<6>=1 
SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>*<0,0> 
LET PATTERN = 52525 

LET DCSR<O> = #1 


DOR NE PATTERN THE 
ERROR 


N 
PERFORMING DATA IN 


; 
; 

; 

; 

; 

; 

; WRITE PATTERN TO TEST_LOCATION 
; 

; 

; 

; 

; 

; 


32 CPS HHEHSSHAREHEHRESSALGROEHSAECALRSHHAOHAESEEBRESARHASKHEKEECSACHRESE 


s*TEST 11 DATA IN WITHOUT RELOCATION 

f fF SSSOSSHSESSSSSESESESEESEESESESESEEEESESEEEEESESESSESEEESESEEEES 

TST11: SCOPE 
TST PMIS 3; ANY PMI MEMORY? 
BEQ TSsT12 33 IF NONE, EXIT TEST 
BIS @#8ITOS .OC 3 MAKE SURE DIAGNOSTIC MODE IS ON 
BIC @#B8ITO2!BIT01.,0CSR 3 MAKE SURE NPR REGISTER , SELECTED 
MOV » $GODAT ; USE ALTERNATING 1'S AND 0’'S 
BIS #8ITO0O,.OCSR ; SET GO BIT 
MOV $GDDAT , $TMPO ; STORE PATTERN IN TEST LOCATON 

3 

3; NOW COMPARE THE RESULTS 

3 
CMP DOR , $GDDAT ; DOR GOT DATA OK? 
BNE 1$ ; IF NO, ERROR 
BIC #8IT08 ,OCSR 
BR TST12 33EXIT 

1%: MOV DOR , $BDDAT : STORE DOR FOR ERROR REPORTS 
ERROR +15 ; ERROR IN DATA IN 


SEQ 0038 
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TEST - CONTENT OF DDR 


N3 
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177730 
177730 


177782 
001126 
177730 
177730 


-SBTTL TEST - CONTENT OF DOR 


3@ THIS TEST VERIFIES THAT IF DCSR<2-1> ARE NOT ZERO, DOR IS ALWAYS 
3# READ AS 0, MEANING THAT NONE OF THE UNIBUS LINES ARE STUCK. 


BGNTST 

DO FOR DCSR<2-1> FROM <0,1> TO <1,1> 
DO DATI 

If ODOR NE O THEN 
ERROR IN UNIBUS LINES 

ENDIF 


3 F SSSSSHSSSSESSSSSSSSSSSSESSESSSSEEHESESSEEESSESESESESSEEESESEEEEESD 
s*TEST 12 CONTENT OF DOR 
3 § SSSHSSSSSSSSSHSSSSSSSSHSSSSSESHSSSSSEEHESEHESEEESESEEEESEESSEEEEE 


TST12: SCOPE 


TST PMIS ANY PMI MEMORY? 
BEQ TST13 33; IF NONE, exit’ TEST 
BIS @8ITO8 ,OCSR ; MAKE SURE IN DIAS. MODE 
BIS #61IT01,0CSR ; START WITH 1 IN DCSR 
MOV @3,R3 ; DO 3 TIMES 
CLR $GODAT , RECIEVED DATA 0 
1%: CLR R1 3 . ADDRESS 0 
JSR PC DOIN ; . DO DIAGNOSTIC DATI 
chp #1,R3 ; . CONTROL LINES SELECTED? 
BEQ 2s ; . IF YES, CHECK IT 
TST ; . ALL ZEROES? 
BEQ 3% ; . IF YES, BRANCH 
2s: MOV #177400, $GDDAT ; . EXPECTED PATTERN 
BIT #373,00R ; . SELECT ONLY USED 
BEQ 3% ; . IF ALL ZEROES, BRANCH 
MOV DOR , $BDDAT ; . STORE RECIEVED DATA 
ERROR +16 ; . ERROR IN UNIBUS LINES 
38: ADO #6IT01,0CSR 3; . GET NEXT SET OF UNIBUS LINES 
SOB R3.1% ; . DO FOR ALL COMBINATIONS 
BIC #6IT8,D0CSR ; 


SEQ 0039 
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SEQ 0040 
TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
1470 .SBTTL TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
1471 
1472 :@ THIS TEST WILL CHECK THAT EACH OF THE UNIBUS MAP REGISTER PAIRS CAN BE 
1473 1@ ACCESSED INDIRECTLY AND THAT RELOCATION WORKS PROPERLY 
1474 3@ DATA OUT CYCLES BE PERFORMED. EACH REGISTER EXCEPT 
1475 1@ UNDER TEST WILL POINT TO Nom 177 REGISTER PAIR UNDER TEST 
1476 3@ WILL POINT TO 0, AND DIAGNOSTIC DATA OUT CYCLES WILL BE 
1477 1¢ TO PHYSICAL LOCATION 0. IN UFD MODE THIS TEST WILL RUN OMLY IF 
1478 3@ KMCR<S>°0, I.E. 22 BIT MODE. 
1479 3 
1<80 : @GNTST 
14861 3 
1482 5 IF UFD MODE AND KMCR<S> EQ 01 THEN 
1483 3 oon TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 16 BIT) 
1484 3 
1485 3 MAKE SURE THA x OTeMOsTIC MODE IS ON DCSR<8>=1 
1486 3 SELECT DIAGNOSTIC NPR THRU ODOR BY DCSR<2-1><0,0> 
1487 ; 00 FOR 32. MAPPING REGISTERS 
jane i . LET REGIS 2 @ 
1489 3 . LET MZ REGISTER = 077 
1490 3 (ALL REGISTERS POINT TO on 17760000 ) 
1491 3 POINT TIMEOUT ROUTINE TO VECTOR 4 
1492 i CALL MAP_PROGRAN AREA 
1493 i LET MARO<O> = 1 fO ENABLE few 
1494 i LET PORRS<S> = 1 TO ENABLE RELOCATION 
1495 : POINT RO TO ADDRESS OF MAP REGISTER 0 
1496 ij TK * @0 TO ACCESS REGISTER 0 
1497 : LET (RO) = 60 
1698 3 LET (RO)+2 = 60 TO USE OMLY 16 BITS 
1499 3 LET M1 = @140000 TO ACCESS THRU KIPARG 
1500 3 IF NOT UFO THEN 
1501 3 
1502 5 CLEAR KMCR<4-0> 
1503 3 LET R4 = 031. (00 FOR ALL REGISTERS) 
1504 3 ELSE 
1505 3 LET R4 = 31. - (KMCR<4-1>) ONLY NOT DISABLED REGISTERS 
1506 3 ENDIF 
1507 : DO FOR R3 FROM 60 TO R4 FOR ALL REGISTERS 
1506 : . CLEAR 880 (THIS LOCATION IS ACTUALLY USED) 
1509 3 LET PATTERN = RO (ADORESS OF LOW REGISTER) 
1510 ; CALL DIAGMOSTIC_DATA_OUT <(R1),PATTERN> 
1511 i IF TIMEOUT THEN 
1512 i ERROR IN UNIQUE ADDRESSING OF REGISTERS 
1513 ’ ENDIF 
1514 i IF @00 NE PATTERN THEN 
1515 ; . ERROR PERFORMING DATA OUT 
1516 3 ENDIF 
1517 ; LET (RO)+ = 0160000 
1516 1 LET (RO)+ = 077 TO MAP JST USED PAIR TO NXM 
1519 i LET (RO) = 60 
1520 ’ LET (RO)+2 = @0 TO MAP NEXT PAIR TO TEST_LOCATION 
1521 : LET KIPARG = KIPAR6 + @200 TO ACCESS NEXT PAIR 
1522 F ENDOO 
1523 3 DISABLE MMU 
1524 5 
1525 3 €NDTST 
$ 


ee ee ee SS. - 





C4 
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SEQ 004 
TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS S 
1527 Sor eSeenVeRRS se wSeSs Desde nseresRssesereRERESTET eh Essien SeLesssesess 
‘a5 BF SSSSSHSSSHSSSSSSSSSSSSSSSSSSSSSSSHSSSSHSSSSSSSSHSESSSSEEESEEEEEE 
seTEST 13 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
§ FE SSOSSSSSSSSSSSSSSSSSHSSHSSSSSSSISSSSSSS IOSSHOSHSSHSSSHSSHEESEEEEE 
005044 000004 TST13: SCOPE 
1530 
1531 005046 005737 001720 TST PHMIS 3s ANY PMI MEMORY? 
1532 005052 001576 BEQ TST14 ss IF NOME, EXIT TEST 
1533 005054 032737 000040 000052 SIT @BIT05 8052 s UFO MODE ? 
1534 005062 001406 REO 18 : BRANCH , Vv NOT 
1535 005064 032737 000040 177734 BIT @BITO5 ,.KMCR s 16 BIT MODE i. 
1536 005072 001402 BEG 18 3 BRANCH, IF 
1537 005074 000137 005430 JSP 108 3s EXIT TEST 
1538 005100 052737 000400 177730 18: BIS @BIT06 .OCSR s SET DIAGNOSTIC MODE 
coos 005106 042737 000006 177730 BIC @BITO2!61T01 ,.0CSR 3s SELECT NPR THRU DOR 
1 3 
1541 : POINT EACH OF MAPPING REGISTER PAIRS 10 17760000 


o32.,R1 


MOV 00 FOR 32. REGISTER PAIRS 
Ov @PAPLOO ,R2 

1545 005124 012722 160000 2s: a 160000 , (R2)+ 
soe 


POINT TO ADDRESS OF THE FIRST REGISTER 
- 160000 -> LO REGISTER 
. 77 -> HI REGISTER 

CONTINUE UNTILL ALL DONE 


077, (R2)o 
R128 


| 

| 

| 

| 

1 

POINT RO TO FIRST REGISTER 


1548 3 
aH s INITIALISE TO 00 RELOCATION IN 22 BIT MODE 
3 
1551 005136 012737 002234 000004 MOV @OTIMOUT , 804 s POINT TIMEOUT ROUTINE 
1552 005144 004737 JSR PC ,MAPPR 3 REMAP AREA 
1553 005150 005237 177572 Inc 3 TURN a a ¥) 
1554 005154 052737 172516 6Is CBITOS ,PORS 3s ENABLE RELOCATION 
1555 005162 012700 170200 MOV 00, 8 
012737 000000 172354 MOV @0, KIPARG 3 LET KIPARG SELECT MAP PAIR O 
1557 005174 012710 00000U MOV @0,(RO) s MOVE O TO LOW ADORESS 
005200 000000 000002 MOV @0,2(RO) 3s MOVE O TO HI ADORESS 
fee 005206 012701 140000 “OV #140000 ,R1 s TO ACCESS THRU KIPARG 
’ 
tant s STORE @ OF REGISTERS TO TEST IN R4 
3 
1563 005212 032737 000040 000052 BIT @BIT05 8052 3; UFO MODE ? 
1 001010 GaN AT) 3s IF YES, BRANCH 
1565 005222 013737 177734 001162 "OV KMCR , STMP1 3s SAVE KMCR 
1566 005230 005037 177734 CLR KMCR s OO NOT DISABLE ANY REGISTERS 
1567 005234 012704 000036 MOV 030. ,R4 s 0O FOR ALL REGISTERS 
1 000407 68 ay 1 BRANCH AROUND 
1569 005242 113703 177734 38; *OvB KMCR RS s STORE @ OF DISABLED REGISTERS 
005246 042703 177740 bre @177740,R3 3: LEAVE JUST BITS <4-0> 
1571 005252 012704 000036 MOV o30., 3s STORE MAX. @ OF REGISTERS 
pee 005256 160304 5B RS, : GET @ OF ACCESSABLE REGISTERS 
ta s 00 DATA OUT FOR EACH REGISTER PAIR UNDER TEST 
5 
1576 005260 005003 4s; CLR as 3: START WITH REGISTER PAIR 0 
1577 005262 005037 000600 TF CLR ea) s . CLEAR LOCA al UNDER TEST 
1576 005266 005037 001730 CLR TouT 3 . CLEAR TIMEOUT FLAG 
1579 005272 010037 001124 MOV RO, $GDODAT 3 . PATTERN IS ADORESS OF LO REGISTER 
1580 005276 004737 002210 JSR PC ,000UT s . DO DIAGN, DATA OuT 
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T1135 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 


001730 
172354 
000007 
001122 


001122 


78; 


108%: 


TST 
BEQ 


massseee 925395828 


@ 
con 


ARS SA 


@6ITOS MARS 
#6176 ,OCSR 


. TIMEOUT FLAG SET? 


. IF NOT BRANCH 


. STORE @ OF PAIR FOR 
. PREPARE 
SHIFT 


. * SHIFT 7 T 


IMES 
UMIQUE ADDRESSING OF REGISTERS 


. IN 
. DATA OUT OK? 


. IF YES, BRANCH 

| STORE FOR ERROR REPORTS 

: PERFORMING DATA 

: POINT JUST USED REGISTER 
TO NXM 

POINT NEXT REGISTER PAIR 


TO LOCATION 0 


BRANCH IF NOT 


RRORS 
TO SHIFT TO GET TO LOWER BITS 
ONCE 


ACCESS NEXT REGISTER PAIR 
INCREMENT 
ALL AVAILABLE PAIRS DONE? 


SEQ 0042 
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001720 


005614 
140000 


-SBTTL TEST - DISABLING OF THE MAPPING REGISTERS 

s@ THIS TEST WILL CHECK THAT NONE OF THE oe a, ay DISABLED BY KMCR<4-0> 

3@ PERFORM RELOCATION. IN UFD MODE ONLY THE BITS ACTUALLY SET IN THE KMCR WILL 
3@ BE CHECKED, OTHREWISE ALL OF THEM EXCEPT THE FIRST 4 ARE CHECKED. 

1¢ IN UFD MODE THIS TEST WILL RUN OMLY IF KMCR<S>=0, (IN 22 BIT MODE ) 

BGNTST 


IF UFO MODE AND KMCR<S> EQ 1 THEN 
hor TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
— OIAGNOSTIC NPR THRU DOR BY DCSR<2-1>*<0,0> 
CALL MAP _PROGRAM_ 


AREA 
LET MARS<S> = 61 TO ENABLE — 


T 
SET 4 TO IGNORE TIMEOUT 


LET 800 = 60 
LET MAPL37 = 40 
Chel. "DIAGNOS srie DATA_OUT<(RO), PATTERN 
< ‘ > 
IF 900 EQ PATTERN THEN 
. ERROR REG. PAIR 37 PERFORMS RELOCATION 
ENDIF 
ENDTST 


J} SOSSOSSSSESESOSESSESOSEEEEEESESEESEESESESSEDEESEEEEEEEEEEASEEEES 
s*TEST 14 DISABLING REGISTERS 


8 FE SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSESSSEHSHSSSSSHSEHHSESEEHEEEEEE 


TST14; 
TST PMIS 3 ANY PMI MEMORY? 
BEQ TSsT15 ss IF NONE , EXIT TEST 
BIT BI TOS, 8052 1 UFO MODE ? 
BEQ 1% s BRANCH, IF NOT 
BIT @6ITOS ,.KMCR 16 BIT MODE ? 
BNE TST15 ssEXIT TEST IF 16 BIT MODE 

3 

s INITIALISE MMU AND DIAGNOSTIC REGISTERS 

i 

16; BIS #81T06 ,OCSR s SET DIAGNOSTIC MODE 
BIC @6IT02!B1T01,0CSR + SELECT NPR THRU DOR 
JSR PC ,MAPPR s REMAP PROGRAM AREA 
INC MARO 3 TURN ON MMU 
BIS BI TOS MARS : ENABLE RELOCATION 

’ 

s TRY TO DO RELOCATION THRU REGISTER PAIR 31. 

4 
MOV 02% , 804 s INITIALISE TIMEOUT ROUTINE 
MOV #140000 ,R1 3 ACCESS THRU KIPAR6 
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T14 DISABLING REGISTERS 


1661 005544 012737 007600 172354 MOV #7600 , KIPAR6 s ACCESS REG. PAIR 31. 

1662 00SSS2 012737 125252 001124 #125252 , SGODAT s STORE PATTERN 

1663 005560 005037 000000 CLR @e0 s CLEAR LOCATION UNDER TEST 
012737 000000 170374 MOV #0 ,MAPL37 s LET MAP PAIR 31. 

1665 005572 012737 000000 170376 MOV @C , MAPHS7 s POINT TO 0 
013737 001124 177732 MOV $GDODAT , DOR s STORE PATTERN IN DOR 

1667 005606 005011 CLR (R1) s EXTENAL READ TO PROVIDE ADDRESS 

1668 005610 104021 ERROR +21 s RELOCATION PERFORMED THRU REG. 31. 

1669 005612 000402 BR 3$ s EXIT TEST 

1670 005614 005726 2s: TST (SP )« s RESTORE STACK 

1671 005616 005726 TST (SP )+ 

1672 005620 005037 177572 38: CLR MMRO s DISABLE MMU 

1673 005624 042737 000040 172516 BIC @BITOS MARS s DISABLE MAPPING 

1674 005632 012737 002234 000004 MOV @TIMOUT , 804 s RESTORE TIMEOUT 

1675 005640 042737 000400 177730 BIC #6IT8,0CSR s EXIT DIAGNOSTIC MODE 


1730 005730 
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TEST - NXM MEMORY TIMEOUT 


000422 
013737 
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177730 


-SBTTL TEST - NXM MEMORY TIMEOUT 


s@ THIS TEST WILL VERIFY THAT WHENEVER LOCATION 17760000 IS ACCESSED 
3@ DIAGNOSTIC NPR CYCLES RESULT IN A TIMEOUT SETTING BIT <15> IN OCSR. 


BGNTST 
MAKE SURE THAT a yh HS MODE IS ON DCSR<8>=1 


SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>*<0,0> 
CALL MAP_PROGRAM_AREA 
LET MMRO<O> = 1 TO ENABLE roy 
IF NOT UFD MODE OR KMCR<S> EQ 60 
LET TEST_LOCATION = 9140000 TO ACCESS THRU KIPARG 
LET KIPARG = @0 TO ACCESS REGISTER PAIR 0 
LET LO REGISTER = 9160000 T SET REG. © TO NXM 


T MARS<S> = 1 TO ENABLE RELOCATION 


IF KMCR<S> EQ @1 THEN(18 BIT MODE) 
: Ler TEST_LOCATION = #140000 TO ACCESS THRU KIPAR6 
‘ T KIPARG = #177600 TO ACCESS NXM 


ENDIF 

START DIAGNOSTIC_DATA_OUT TO 900 

IF OCSR<15> NE O THEN 
ERROR NXM BIT SET 


ENDIF 

PUT ACTUAL EXTERNAL ADORESS ON THE BUS 
IF OCSR<15> NE 1 THEN 

we NXM MEMORY DOES NOT SET D-SR<15> 


8 SSSSSSSSSSSSSSSSSSHSSSSSSSSSSHSSESSHSSSSSSSSHSHSSHEHSESEEEESESEESEED 


seTEST 15 NXM MEMORY TIMEOUT 
Witiiiiitiitiit ii iritiiiiiittiiitiiiiiiiiiiititiititiTiitititTitttt 
TST1S5: SCOPE 
TST PMIS ANY PMI MEMORY? 
BEQ TST16 33 IF NONE, exit’ TEST 
BIS @61T8,OCSR s SELECT DIAGNOSTIC MODE 
JSR P 3 REMAP PROGRAM AREA 
INC ; ENABLE MMU 
3 
s DECIDE WHETHER TO ACCESS WITH RELOCATION OR NOT 
F 
MOV #140000 ,R1 3; ACCESS THRU KIPARG 
BIT 8ITOS 8052 3 D MODE? 
BEQ is : TF NOT, BRANCH 
BIT @BITOS ,.KMCR : 8 BIT MODE? 
BEQ es 3 IF NOT BRANCH 
MOV 177600 ,KIPAR6 3 KIPAR6 HAS NXM 
BR 4 s GO 0O IT 
16; MOV KMCR, $TMP1 3 SAVE KMCR 
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SEQ 

T15 NXM MEMORY TIMEOUT 0046 

1731 005736 042737 000040 177734 BIC #6 ITOS ,KMCR s IN NOT UFD, ye - IN 22 —— 

1732 005744 012737 000000 172354 2%: MOV @0 ,KIPARG s KIPAR6 ACCES SS MAP REG. 

1733 005752 012737 160000 170200 MOV #160000 , MAPLOO 3 MAP PAIR HAS NXM 

1734 005760 012737 000077 170202 MOV o77, 

Me 005766 052737 000040 172516 BIS @8ITOS MARS : ENABLE RELOCATION 

17 3 

1737 : DO ACTUAL DATA OUT CYCLE 

738 3 

1739 005774 005037 177732 3% CLR DOR s PROMT DIAG. DATO 

1740 006000 005011 CLR (Ri) 3 WRITE TO NXM 

1741 006002 032737 100000 177730 BIT #81IT15,0CSR 3 NXM SET? 

1742 006010 001001 5% s IF YES, BRANCH 

1743 006012 104022 ERROR +22 s NOM ACCESS DOES NOT SET DCSR<15> 

1744 006014 005037 177572 5%; CLR MARO 3s DISABLE MMU 

1745 006020 042737 000040 172516 BIC @BITOS .MARS 3 AND MAPPING TOO 

746 006026 032737 000040 BIT @BITOS 8052 3 UFO MODE 

1747 006034 001 TST16 3sIF NOT UFD, GO TO NEXT TEST 

1748 006036 013737 001162 177734 MOV $TMP1,.KMCR 3 OTHERWISE, RESTORE KMCR 

1749 006044 042737 177730 BIC @8IT8,0CSR s EXIT OIAGNOSTIC MODE 
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001720 


177572 
000040 


172354 
140002 
177777 


170200 


-SBTTL TEST - CARRY PROPOGATION TEST 


3@ THIS TEST CHECKS THE CARRY PROPOGATION THRU THE ALU. MAPPING REGISTER PAIR 0 
s@ IS LOADED WITH ALL 1'S. LOCATION 1 IS ACCESSED. THE RESULT OF THE DATO 


:# CYCLE IS SUPPOSED TO BE LOADED IN LOCATION O. 
BGNTST 


IF UFD MODE KMCR<S> EQ #1 THEN 
bon TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 

SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1><0,0> 

POINT TIMEOUT_ROUTINE TO VECTOR 4 

CALL MAP| AREA 

LET MARO<O> = 1 TO ENABLE MMU 

LET MAR3<5> = 1 TO ENABLE RELOCATION 
T KIPAR6 = S 


125252 
CALL DIAGNOSTIC_DATA_OUT<(R1),PATTERN> 
LET MARO<O> = #0 TO DISABLE My 

IF 80 NE @ THEN 

. ERROR IN CARRY PROPOGATION 

ENDIF 


fy 
2 
“ 
: Bg. ‘ 3 
ze 
z 
2 
: 
z 


§ SSSSSSSSSSSSSSESESEESSEEDESESEEEEESEEEESESEDESESESESEEEEEEEEEEES 
s*TEST 16 CARRY PROPOGATION TEST 

js SSSSSSSSSOSSSESESEESEVESESESESESEEEEEESESESEEESEESEDEEESESESEES 
TST1 SCOPE 


PMIS 3s ANY PMI MEMORY? 
BEQ TST17 33 IF NONE, EXIT TEST 
BIT @6ITOS ,aeS2 s UFO MODE ? 
3 BRANCH, IF NOT 


BEQ 1% 
BIT @8ITOS ,.KMCR s 16 BIT MODE ? 
BNE TST17 33 GO TO NEXT TEST, IF YES 
: 
s INITIALISE MMU AND DIAGNOSTIC REGISTERS 
5 
16: BIS SET DIAGNOSTIC MODE 


@6IT06 ,OCSR ‘ 
BIC @6IT02!6IT01,0CSR s SELECT NPR THRU DOR 
JSR PC ,MAPPR s REMAP PROGRAM AREA 
INC MMRO s TURN ON MMU 
BIS #6ITOS ,MMRS s ENABLE RELOCATION 


a 
s ACCESS LOCATION O THRU RELOCATION REGISTERS 
CLR KIPAR6 1 CLEAR KIPAR6 


MOV #140002 ,R1 s ACCESS THRU KIPAR6 
MOV 0177777 ,MAPLOO s ALL ONE'S TO LO REG 





J4 
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116 CARRY PROPOGATION TEST SEQ 0048 

1806 006152 012737 000077 170202 MOV «77, MAPHOO ; ALL ONE'S TO HI REG 

1807 006160 012737 125252 001124 MOV #125252, $GDDAT ; THE PATTERN TO BE STORED 

1808 006166 005037 000000 CLR 00 + CLEAR TEST LOCATION 

1809 006172 004737 002210 JSR —- PC, DDOUT + 00 DATA OUT 

1810 006176 005037 177572 CLR = HARO + DISABLE MMU 

1811 006202 042737 000040 172516 BIC #81 TOS, MMRS + AND MAPPING 

1812 006210 042737 000400 177730 BIC #8178, 0CSR s EXIT DIAGNOSTIC MODE 

1813 006216 022737 125252 000000 CMP =s«@ 125252, 840 s DATA OUT OK 

1814 006224 001406 BEQ =‘ STi7 11 IF YES, GO TO NEXT. TEST 

1815 006226 013737 000000 001126 MOV 880, SBDDAT ; STORE FOR ERROR REPORTS 

1816 006234 005037 001122 CLR $BDADR ; ADORESS 0 


1817 006240 1040235 ERROR +23 s IN CARRY PROPOGATION 





KTJ11-8 DIAGNOSTIC 
TEST - EXTENSIVE CARRY PROPOGATION TEST 


K4 


MACRO M1200 05-OCT-84 09:24 PAGE 25 


001720 


170200 
000036 
177776 
000077 


.SBTTL TEST - EXTENSIVE CARRY PROPOGATION TEST 

3@ THIS TEST PERFORMS EXTENSIVE CHECKING OF Sng ee FIRST 1K IS 

3# CHECKED IN WORD INCREMENT 3. AFTER THAT EACH 1K UP TO 4K. DIAGNOSTIC DATI 

ve CYCLES ARE PERFORMED AND A MAPPING REGISTER PAIR USED IS ALWAYS AT ALL 1’S. 
BGNTST 


IF UFD MODE AND KMCR<S> EQ #1 THEN 
ad TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


END 

CALL MAP_PROGRAM_AREA 

ENABLE MAPPING 

INITIAL ISE ALL MAPPING REGISTERS TO POINT TO ALL 1'S 
DO FOR 4K OF MEMORY ie 


IF MEMORY ACCESSED LESS THEN 1K 
DO WORD INCREMENTS 


- AS 
° 8 3 1K INCREMENTS 
DO DATI INCREMENTS 
val . ee LOCATION IN MEMORY THEN 


2 f CESOASESEEOHEEEHHSERSSEHSSEHO SHALE REREHESACKARACHASSEEHHREKHRARSEREHSE 


s*TEST 17 EXTENSIVE CARRY PROPOGATION TEST 
§ SSSSSSESSSOSSESSESSESESEEESESEEEESESSEEESSEHESESEEEEEEEEESESEEES 
TST17: OPE 
TST PMIS ANY PMI MEMORY? 
BEQ TST20 33 IF NONE, EXIT’ TEST 
BIT #8ITOS , 8052 ; UFD 
BEQ 1$ : IF NOT, BRANCH 
BIT #6ITOS ,.KMCR s 16 BIT MODE 
BNE TST20 33 IF 18 BIT MODE . DON’T DO THIS TEST 
3 
s INITIALISE MMU AND RELOCATION 
3 
18: BIS #6IT08 ,OCSR s SET gag MODE 
BIC #6ITO02!B61T01,0CSR ; SELECT NPR THRU DOR 
JSR PC, 3 REMAP PROGRAM AREA 
BIS BI TOS !BITO4 ,MMRS s ENABLE RELOCATION AND 22BITS 
INC MMRO s ENABLE MMU 
3 \ 
s POINT ALL MAPPING REGISTERS TO ALL 1'S 
3 
MOV @MAPLOO,R1 s START WITH O 
MOV #36 ,R3 s DO FOR ALL REGISTERS 
2s; MOV @177776,(R1)+ ; LOW MAP REGISTER 
MOV #77, (R1)+ + HIGH MAP REGISTER 
S08 R3,2¢ ; DO FOR ALL 
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T17 


EXTENSIVE CARRY PROPOGATION TEST 
1874 
1875 
1876 
1877 006340 005037 172554 
18676 006352 012701 140002 
1879 006356 1 
18680 006360 005721 
1681 004737 
1682 006366 010157 001122 
1883 006372 162737 1 
1684 006400 027737 172516 177732 
1885 006406 001412 
18686 006410 017737 17 001124 
1687 006416 015737 177732 001126 
1888 042737 160000 001122 
1689 006432 1040235 
1890 
1891 
1892 
1893 006434 005737 172354 
1 006440 001011 
1895 006442 144000 
1696 006446 105744 
1897 006450 012701 140002 
1896 006454 012737 000040 172354 
1899 006462 000737 
1900 006464 062737 000040 172354 
1901 006472 022737 000200 172354 
1902 006500 003330 
1903 006502 005037 177572 
1906 006506 042737 000400 177730 
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2 
; START WITH DATI ON A WORD BOUNDARY 


CLR 
HOV 


BR 
38: TsT 
4$: JSR 


MOV 
SUB 
CMP 
BEQ 


BIC 
ERROR 


DOR , $BDDAT 
mane !61T13, $BDADR 
° 


s DECIDE WHICH CYCLE SHOULD OCCUR NEXT 


Hy 
7%: TST 


108: 


KIPAR6 


10% 

ica 
#140002 ,R1 
oe 


@40 , KIPAR6 
+ Se tmetnmaan 


MARO 
@6IT8,0CSR 


s ACCESS REGISTER PAIR O 
s START WITH O THRU KIP 


- 00 IN WORD INCREMENTS 
- DO DATI 
- STORE JUST pot oy ADORESS 


. QUAL, BRANCH 

- STORE RECEIVED DATA 

. STORE EXPECTED DATA 

. STRIP OF PAR BITS 
ERROR 


IN RELOCATION 


- FIRST TIME 1K BOUNDARY? 
F BRANCH 


. BOUNDARY ? 
._ IF NOT, GO DO DATI 
DISABLE MMU 

EXIT DIAGNOSTIC MODE 


SEQ 0050 


KTJ11-8 DIAGNOSTIC 
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001720 


140000 
172354 


177734 


177730 
177730 


172516 


-SBTTL TEST - ALU TEST 

“ THIS TEST one a, ahh eg CHECKING OF ALU BY USING BINARY COUNT PATTERN 
FOR EACH OF THE S ADDERS AT THE SAME TIME. HIGHEST LOCATIONS CHECKED 

e CORRESPOND 10 MAXIMUM AMOUNT OF MEMORY AVAILABLE. 

BGNTST 


IF UFD MODE AND KMCR<S> EQ #1 THEN 
_ TEST (RELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


AND MAKE UP MASK FOR NXM 

FOR BINARY COUNT PATTERNS THRU ALL FOR ADDERS 
MASK OUT NXM 

IF LESS THAN 32K THEN 
DO DATI 

4 DATO 

IF RESULT OF THE CYCLE IS NOT PROPER THEN 
ERROR IN ALU 


3S SSSSSSSSSSSSSSSSHSSSSSSSSSSSSSHSSESSESSSESESESEHESEESEEEEESESEEEEEE 
TEST 


s*TEST 20 ALU 

j  SOSSOSSSSSSSSEESSSSESESEEEEEEEEESEEEESEEEEEEEEEDEEESEEEESEEEEES 

TST20: SCOPE 
TST PMIS s ANY 22-BIT PMI MEMORY? 
BEQ TsT21 ss IF NONE, EXIT TEST 
BIT @BITOS,.KMCR s 16 BIT MODE 
BNE TSsT21 ss IF 186 BIT MODE. DON'T DO THIS TEST 

‘ 

s INITIALISE MU AND RELOCATION 

5 

16: BIS @8ITO6 ,OCSR s SET DIAGNOSTIC MODE 
BIC #8ITO2!:B1T01,0CSR s SELECT NPR THRU DOR 
JSR PC, s REMAP PROGRAM AREA 
BIS @8ITOS!BITO4 MARS : ENABLE RELOCATION AND 22B6ITS 
INC MARO ; ENABLE Me 
MOV PHIS ,.R2 s STORE SIZE OF PMI MEMORY 
MOV . STHPO ; CREATE A PATTERN 
MOV #4200 ,R3 ; CONSTANT FOR PAR 
BIC R2,R3 s MASK OUT HXM 
ASH @-10. ,R2 : FOR MAPHOO 

H 

s DO FOR ALL COMBINATIONS POSSIBLE, 4 BITS AT A TIME 

6 
MOV #140000 ,R1 ; ACCESS THRU KIPAR6 
CLR KIPAR6 ; ACCESS REGISTER PAIR 0 
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2s: 


5$: 


IN 
$TMP 1, KIPAR6 
. 8$BDADR 


10% 
DOR , $BDDAT 


SSBDADR , $GODAT 
#8IT15!6IT14!61T13, $BDADR 


BOADR , $BDDAT 
~~ ‘penceemetn theta $BDADR 
ol 


; 
; DECIDE WHAT ACCESS NEXT 


3 
108: 


15%: 


MARO 
#6IT8,OCSR 


; CLEAR MAP REGISTERS 


; 

s CLEAR STORAGE FOR PAR 
s FIRST ADDRESS USED 

; CLEAR PATTERN 


DO DATI 
. GET ADDED PAR 
- DATI OK? 


IF SO 


, » BRANCH 
- STORE RECIEVED DATA 


STORE EXPECTED DATA 


. STRIP OF PAR BITS 


- IF SO, BRANCH 
. STORE EXPECTED DATA 
. STRIP OF PAR BITS 


- ADD UNIBUS MAP REG. 

. MAKE SURE KIPARG6 SELECTED 

- OVERFLOW FROM ADDITION? 
NO, BRANCH 


| OVER AVAILABLE MEMORY? 


IF NOT, Jens” ANOTHER DATO 


; OISABLE 
; EXIT DIAGNOSTIC MODE 


KTJ11-8 DIAGNOSTIC 
TEST - MAIN MEMORY DISABLE 


ESPERERE 


—_ —_— — ——— OA SS ee a — 
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001720 
007574 
000400 
002244 
177572 


177734 
177740 


177730 


-SBTTL TEST - MAIN MEMORY DISABLE 


_ THIS TEST WILL CHECK THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 
¢ THE APPROPRIATE BITS IN THE KMCR REGISTER ARE SET. IN UFD MODE OMLY BITS SET 
ie IN KMCR WILL BE TESTED. IN ALL OTHER ENVIRONMENTS ALL BITS WILL BE TESTED. 


BGNTST 


CALL MAP_PROGRAM_AREA 

LET MARO<O> = 1 TO ENABLE MoU 

LET Ri = KMCR_LOW_ BYTE 

CLEAR BITS -5S,6,7> INR 

IF KMCR<S> EQ “1 THEN cis BIT MODE) 
LET KIPAR6 = #7400 

ELSE (22 BIT MODE) 

. LET KIPAR6 = 0177400 


ENDIF 
LET TEST_LOCATION = @140000 TO ACCESS THRU KIPAR6 
00 FOR RO FROM @ 2 TO RL ALL PAGES SPECIFIED IN KMCR 
. LET R2 = STEST LOCATION 

. IF NO TIMEOUT THEN 

. .« ERROR KMCR<4-5> DOESNOT DISABLE MAIN MEMORY 


ENDIF 

LET KIPARG = KIPAR6 - #200 
IF NOT UFD MODE THEN 

SAVE KMCR 


; (CHECK KMCR<S-0> TO BE READ-WRITE 
LET KMCR<S-0> = €0 (ALL NON-UNIBUS MEMORY ) 


1 THEN 
- + LET KACR<4-0> © <1000> TO DISABLE HIGHER THAN 28K 
- «+ IF 60140000 9 at el TIMEOUT THEN 
Bi PW a SETTING KMCR<S-0> DOESNOT DISABLE MEMORY 
ENDIF 
RESTORE KMCR 
ENDIF 


8 FE SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSHSSSOSSSSESESSES 


seTEST 21 MAIN MEMORY DISABLE 


§ F SSSHSSSSSSSSSSSSSSSSSSSSSSSOSSSSSSSSSSSSSHSSSSSSSSSSSOSSSSEEEEE 


TST21: SCOPE 


TST PMIS 3 ANY PHI MEMORY? 
ONE 20% : IF YES, 00 THE TES! 
ad 1006 s OTHERWISE EXIT TES 
208; BIS @61T08 ,OCSR s STANDALONE MODE 
JSR PC ,MAPPR 3 REMAP PROGRAM ARCA 
INC MARO s ENABLE Me 
MOvB KMCR ,R1 s SAVE KMCR 
BIC @177740,R1 + Ril HAS @ OF PAGES DISABLED 


3 
s GET THE HIGHEST NXM LOCATION 
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032737 
001404 
012737 
000403 
012737 


Pe 
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000040 177734 
007400 172354 
177400 172354 


007226 000004 


000200 172354 


177734 001126 
001122 
001160 177734 


172516 
170202 
000040 172516 


000004 
002000 172554 
000067 177734 


BIT 8 1T05 ,KMCR 
BEG is 

MOV 07400 , KIPAR6 
BR 2s 

MOV 


1%: 0177400 ,KIPAR6 
; GO THRU ALL PAGES OF MEMORY DISABLED 
3 
2s: TSTB Ri 
BEG 66 
MOV O4¢ O94 
38: TST 80140000 
ERROR 25 
AR Ss 
4s: TST (SP )e 


S$: SUB @200 , KIPAR6 
SOB R 
Ov @TIMOUT , 804 
: 
s IN NON-UFD MODE, CHECK KMCR<5-0> 


ra 

68: BIT @BIT05 , 8052 
BME TST22 
MOV KMCR, $THP1 
MOV 067 ,R1 

78: MOVE Rl. 
cere Rl, 
BEQ 6s 
MOV Ri, 
BIs @BIT07, $GDDAT 
Ceres T, 
eeQ 6s 
MOV R1, SGDOAT 
"Ov » S8ODAT 
MOV @COTCR , SBDADR 
MOV 6THPO ,.KMCR 
ERROR ell 
68 128 

66: OEC Ri 
8GE 78 


IT 
NXM FOR 22 BITS 


INT TIMEOUT VECTOR TO PROGRAM 
. ACCESS THRU KIPARG 


SEQ 0054 


. KMCR<4-0> DOES NOT DISABLE MAIN MEMORY 


- AOUST STACK 


SS NEXT LOWER PAGE 
. 00 FOR ALL PAGES IN KMCR 
RESTORE TIMEOUT VECTOR 


s UFO MODE? 
33 IF YES, GO TO NEXT TEST 
3s SAVE KMCR 


VE 
HIGHEST VALUE (32K OF MEMORY) 
I O KMCR 


3 
s IN NON-UFD MODE, GO THRU THE PAGE JUST ABOVE 32K 


61s 681104 ,PORS 


Ov PHIS ,R2 

CLR 00 

"Ov @1 , MAPHOO 
6Is O8IT0S ORS 
CLR By 


"Ov 0106 ,804 
"Ov 02000 , KIPAR6 
Ov 067, KMCR 


s 00 A CPU CYCLE TO DISABLED MEMORY 


ENABLE 22-BIT 
STORE HIGHEST PAGE 


ABOVE 32K 
DISABLE HIGHER "HEN 32K 


DS 
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SEQ 0055 
T21 MAIN MEMORY DISABLE 

2116 ; 
2119 007442 005737 140000 9%: TST 8@140000 s . ACCESS DISABLED MEMORY 
2120 007446 104025 ERROR + s . IN DISABLING MEMORY THRU KMCR<4-0> 
2121 007450 000411 BR 12s ; 
2122 007452 005726 108: TST (SP )+ F 
21 F 
2125 : DO A DMA DATI CYCLE TO DISABLED MEMORY 

3 
2127 007456 004737 002222 118: JSR PC .ODIN s . DIAGNOSTIC DATI 
2126 007462 032737 100000 177730 BIT #6IT15,0CSR 3 . NXM SET? 
2129 007470 001001 BNE 12¢ 3s . IF SET, BRANCH 
ay 007472 104025 ERROR +25 s . IN OMA MEMORY NOT DISABLED 

3 
3 : CHECK WHETHER ALL PAGES IN FPEMORY VERIFIED 

3 
21384 007474 023702 172354 12% CHP KIPARG ,R2 s . IS IT IN MEMORY? 
2135 007500 103020 BHIS 14$ F IF NOT, 
2136 007502 062737 020000 170200 ADO @20000 , MAPLOO s . ACCESS NEXT 4K 
2137 007510 103002 13% 3 IF DIDN'T EXCEED 32K, BRANCH 
2138 007512 005237 170202 INC 3 OTHERWISE, INCREMENT MAP REGISTER 
2139 007516 005337 177734 138: DEC KMCR 3 ENABLE NEXT 4K OF MEMORY 
2140 007522 032737 000040 177734 BIT @6ITO5 .KMCR 3 AL 126K ? 
2141 007530 001404 Bra 14% F IF SO, OR 

7532 062737 000200 172354 ADO 0200 , KIPAR6 s . ACCESS NEXT 4K 
2143 007540 000740 Be 9% s . TRY TO 00 IT 
2144 007542 012737 002234 000004 14%: MOV @TIMOUT , 904 3s RESTORE TIMEOUT VECTOR 
2145 007550 013737 001162 177734 MOV ¢TMP1 ,.KMCR 3s RESTORE KMCR 
&& 005037 172516 CLR MARS s DISABLE 22-BIT MODE 

2147 007562 005037 177572 CLR MARO 3s DISABLE MoU 
2148 007566 042737 000400 177730 BIC #68I1T8,0CSR 3 EXIT DIAGNOSTIC MODE 


. RESTORE STACK 
2123 007454 005726 TST (SP )- 
r.) 
2149 007574 100%: 
| 
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TEST - 


2164 


DIAGNOSTIC 
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-S8TTL TEST - CACHE PRESENCE 
s@ THIS TEST WILL FIND OUT WHETHER THE CACHE IS PRESENT 
BGNTST 

LET KMCR<6>°01 


IF KMCR<6> NE @1 THEN 
oe NOT PRESENT OR NOT SEEN 


seTEST 22 CACHE PRESENCE 


| SOSSOOOOOSSSESESESSEdESSESEESESEESEESESEESEESESEEEEOSEEEEEEEEESS 
T SCOPE 


TST PHIS 3 ANY PHI MEMORY? 
BEG TST23 ss IF NONE, EXIT TEST 
BIS @BIT06 ,.KMCR s SET CACHE ENABLE BIT 
BIT @BIT06 .KMCR 3 OID IT GET SET? 
BNE TST23 $3 IF CACHE PRESENT, EXIT TEST 
TST $PASS 3 FIRST PASS? 
is : IF YES, SKIP PRINTOUT 
OAPTENV , SENV : IN APT MODE? 
; IF SO, SKIP PRINTOUT 
BIT BITOS , 8052 : UFO MODE ? 
BNE if ; IF YES, BRANCH 
TYPE »NOCAH 3; TYPE NO CACHE MESSAGE 
TYPE . SCRLF PF 
18: JP UBETST :; IF NO CACHE, SKIP ALL CACHE TSTS 


NOCAH: .ASCIZ / NO CACHE SEEN/ 
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-SBTTL TEST 


- CACHE DISABLED AND KMCR 
s@ THIS TEST WILL CHECK THAT WHENEVER THE 


SEQ 0057 


WE OMA CACHE IS DISABLED 


3@ THE STATUS BITS IN KMCR REGISTER ARE ee ge TO 


s@ CONDITIONS: THE VALID BITS ARE CLEARED, A 


3@ SET, FOLLOWED BY 6B, C, AND D 


BGNTST 


POWER UP 
IS THE NEXT AVAILABLE 


DO FOR MMRS<5>*0,1 WITH RELOCATION ENABLED AND DISABLED 
LET KMCR<6> = @0 TO DISABLE CACHE 
LET KMCR<8>=0 
IF KMCR<12!11!10!9> NE #0 


LET KMCR<6>91 


od KMCR<14!13!12!11!10!9!> NE @1 THEN 
ERROR 


IN LRU BITS SELECTION 


THEN 
ae IN VALID BITS WITH CACHE DISABLED 


BS SSSHERASHESSKHEASSSEHSSSSAAOAESSSHAHASEHAESEHESASEHEKREEHSEEEHEEKH DE 


s*TEST 23 


8 J SSSHSSSSSSSSSSSSSSSSSSSSSSSSSSHSSHESSSSSSSSSESSSSSSSHSESESEHEESEESS 
OPE 


TST23: 


4: 


TST 


CACHE DISABLED AND KMCR 


PMIS ANY PMI MEMORY? 
TST24 33 IF NONE, EXIT "TEST 
@8IT8,0CSR s SELECT DIAGNOSTIC MODE 
IT05, 3 Ay » WITH RELOCATION DISABLED 
’ 
@BITOS ORS s NOW DO WITH RELOCATION ENABLED 
@BITO6, 3 MAKE SURE THAT CACHE IS DISABLED 
@BITO6 ,KMCR 3s READ VALID BITS FIRST 
@BITI2:BIT11:!BIT10!:BIT9,KMCR s ALL VALID BITS CLEAR? 
38 : IF YES, BRANCH 
KMCR , $SBDDAT : STORE KMCR 
KMCR , $SGDDAT s STORE TO PRESERVE LOW BYTE 
@BITI2Z:BITILIBITIO!BIT9.sGODAT ; HIGH BYTE CLEAR 
+26 s VALID BITS NOT CLEAR WITH KMCR<6>=0 
@BIT08 ,.KMCR : NOW READ AVAILABILITY BITS 
KMCR , $ $TMPO s STORE KMCR 
177, $TMPO+l1 3 ALL SET? 
ay ; IF YES, BRANCH 
KMCR , SBDDAT 3: STORE KMCR 
KMCR , $GODAT : STORE TO PRESERVE LOW BYTE 
#177, $GODAT : HIGH BYTE SET 
+26 3; AVAIL. BITS NOT SET WITH KMCR<6>=0 
+ eects 3 DONE WITH RELOCATION ENABLED? 
: IF NOT, BRANCH 
$81T8,DCSR 3 EXIT DIAGNOSTIC MODE 


a 


‘ 
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TEST - AVAILABILITY OF SETS 


.SBTTL TEST - AVAILABILITY OF SETS 
3@ THIS TEST WILL CHECK KMCR<15-6>. FIRST. EACH SET IN THE CACHE IS +: peenimes 
3@ THEN EACH SET IS MADE MOST RECENTL Y USED (MRU), ae en a ae 
3@ INVALIDATED BY READING THE 8TH REGISTER OF THE SET 
BGNTST 
ENABLE CACHE 
POINT R2 TO VALTBL FOR VALID BITS (KMCR<8>=0) 
POINT R3 TO TOPTBL FOR AVAILABILITY (KMCR<8>=1) 
ENABLE RELOCATION 
& 
3@ ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
” FOR ALL 4 SETS ALLOCATING THEM IN CACHE 
LET KMCR<6>=0 
D0 OMA og A Om A! BOUNDARY USING DIAGNOSTIC_DATA_IN 
IFB (R2)+ NE IN KMCRel THEN 
ERROR IN READING VALID BITS ON MISS 
ENDIF 
. LET KMCR<8>*1 
. IF@ KMCRe1l NE (R3)+ THEN 
. ERROR READING AVAILABILITY BITS ON MISS 
. ENDIF 
ENDOG 
* 
@ READ A REGISTER FROM A VALID SET MAKING EACH OF THE SETS MOST RECENTLY USED 
” FOR ALL 4 SETS MAKING THEM MRU AND THEN MOST AVAILABLE 


LET KMCR<8>*0 
- 00 OMA READ FROM SRD LOCATION USING DIAGNOSTIC_DATA_IN 
. ‘Ife oan A NE (R2)+ THEN 
‘ ERROR IN READING VALID BITS ON HIT 
; ENDIF 
LET KMCR<6>°1 
IFB KMCR+1 NE (R3)+ THEN 
ERROR READING AVAILABILITY BITS ON HIT 
ENDIF 
ie 
@ READ THE LAST REGISTER FROM A SET MAKING EACH SET INVALID AND MOST AVAILABLE 
& 
. LET KMCR<8>*0 
- OO DMA READ FROM STH LOCATION USING DIAGNOSTIC_DATA_IN 
- IFB KACR+1 NE (R2)+ THEN 
5 am IN READING VALID BITS INVALIDATING A SET 
; LET KMCR<6>=#1 
- IFB KMCRe1 NE (R3)+ THEN 
: io READING AVAILABILITY BITS INVALIDATING A SET 
ENDOO 
ENDTST 


KTJ11-8 DIAGNOSTIC MACRO M1200 05-OCT-84 09:24 PAGE 30-1 
SEQ 0059 
T24 AVAILABILITY OF SETS 
2298 | I OCOOOOSEEEEESEEESEESEESEEEEEEEOEEEEEEESEEESEEEEOESOEESSEEEEEESS 
s*TEST 24 AVAILABILITY OF SETS 
js POOORESEESEESEESEEEEEESEESSEEEEEEESEEESEREDOEEEREDEEESSESEEEESS 
010076 000004 SCOPE 
2299 
2300 010100 005737 001720 TST PMIS s ANY PMI MEMORY? 
2301 010104 001002 BRE 20% s IF SOME, -. THE TEST 
2302 010106 000137 010524 JP 100% ; OTHERWISE EXIT 
2303 010112 052737 000400 177730 20%: BIS BITS ,OCSR s SELECT DIAGNOSTIC MODE 
2304 010120 052737 000100 177734 BxS @BITO6 ,KMCR s ENABLE CACHE 
2305 010126 012702 010526 MOV @VALTBL ,R2 s POINT TO VALID BITS 
2306 010132 012703 010542 MOV @TOPTBL RS s POINT TO AVAILABILITY BITS 
2307 010136 052737 000040 172516 BIS BI TOS , MARS s ENABLE RELOCATION 
2306 010144 012737 000200 170200 MOV #200 , MAPLOO s POINT MAPOO TO FIRST 8KB 
2309 010152 012737 000000 170202 MOV @0 , MAPHOO s IN HIGH AND LCW MAP REGISTERS 
2310 010160 015737 177734 001124 MOV KMCR , $GDDAT s PRESERVE LOW BYTE 
os 010166 105037 001125 CLRB $GODAT +1 s CLEAR TO REPORT ERRORS, IF ANY 
3 
ssia : ALLOCATE 4 SETS BY READING THEM THRU DIAGNOSTIC_DATA_IN 
3 
2315 010172 012701 000000 MOV #0,R1 s START READING MEMORY FROM 0 
2316 010176 004737 002222 1%: JSR PC DOIN s . ALLOCATE IN CACHE NEXT 8 WORDS 
2317 010202 042737 000400 177734 BIC 61708 ,KMCR s . READ VALID BITS 
2316 010210 013737 177734 001126 MOV KMCR, ¢BDDAT s . STORE KMCR 
2319 010216 122237 001127 CHPB (R2)+, $SBDDAT+1 s . VALID BITS OK? 
2320 010222 001404 BQ es s . IF YES, BRANCH 
2321 010224 105742 TST8 -(R2) s . GET THE PATTERN JUST WRITTEN 
2322 010226 112237 001125 MOVE C(R2)¢, SGODAT +1 s . STORE HIGH BYTE 
2323 010232 104026 ERROR +26 ; . ERROR IN VALID GITS 
2324 010234 052737 000400 177734 2%: BIS @6ITO6 ,KMCR s . READ AVAILABILITY BIT 
2325 010242 015737 177734 001126 MOV KMCR, $BODAT s . STORE KMCR 
2326 010250 122337 001127 CMPB CR3)+¢, SBDDAT+1 s . AVAILABILITY BITS OK? 
2327 010254 001404 BEQ 3% s . IF YES, BR 
2326 010256 105743 TSTB -(R3) 3 . GET THE PATTERN JUST WRITTEN 
2329 010260 112337 001125 MOVB (R3)+, $SGODAT+1 s . STORE HIGH BYTE 
2330 010264 104026 ERROR +26 s . ERROR IN AVAILABILITY BITS 
2331 010266 062701 000020 36: ADO #20,R1 s . DO FOR NEXT OCTAL BOUNDARY 
2332 010272 022701 000100 CMP #100,R1 s . ALL 4 DONE? 
oes 010276 0035337 BGT 1% s . IF NOT, BRANCH 
i 
ta 3s NOW READ SRD AND THEN 8TH LOCATION FROM CACHE 
5 
2337 010300 012701 000004 MOV @4,R1 3 START WITH 3RD LOCATION A SET 
2338 010304 042737 000400 177734 4%: BIC @BITO6 ,KMCR s . READ VALID BITS 
2339 010312 004737 002222 JSR PC ,ODIN s . READ FROM CACHE 
2340 010316 0137357 177734 001126 MOV KMCR , $BDDAT s . STORE KMCR 
2341 010324 122237 001127 CHPB (R2)+, SBDDAT +1 s . VALID BITS OK? 
2342 010330 001404 BEQ 54 s . IF YES, BRANCH 
2343 010332 105742 TST8 -(R2) : . GET THE PATTERN JUST WRITTEN 
344 010334 112237 001125 MOVE CR2)¢, $SGDDAT +1 : . STORE HIGH BYTE 
2345 010340 104026 ERROR + s . ERROR IN VALID BITS 
2346 010342 052737 000400 177734 5%: BIS #BIT06 ,KMCR : . READ AVAILABILITY BIT 
2347 010350 013737 177734 001126 MOV KMCR , $SBDDAT : . STORE KMCR 
2348 010356 122337 001127 CMPB CR3)+, $BDDAT+1 t. ann SO TTY BITS OK? 
2349 010362 6s s . IF YES, 
2350 010364 105743 TST6 -(R3) 1. GET THE PATTERN JUST WRITTEN 
2351 010366 112337 001125 MOVE CR3)+, $GDDAT +1 3 . STORE HIGH BYTE 
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2352 010372 
2353 010374 


2375 010524 
010524 


I5 
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SETS 


177734 


001126 


177734 
001126 


172516 
177734 
177730 


034 


6%; 


78: 


100%: 
BR 


+26 

#12,R1 

@8IT08 ,KMCR 
IN 


KMCR, $BDDAT 
yt chtmatetat 
-(R3) 
a 
@#BITOS ,KMCR 
KMCR , $ $BDDAT 
CR2)+, SBDDAT +1 


oeR2) 
(R2)+, $GDDAT+1 
+26 


#6IT8,OCSR 
TST25 


- ERROR IN AVAILABILITY BITS 
. READ THE 8TH WORD 

- READ AVAILABILITY BIT 

. ator FROM CACHE 


. STORE KMCR 
- AVAILABILITY BITS OK? 
- IF YES, BRANCH 

- GET THE PATTERN JUST WRITTEN 
- STORE HIGH BYTE 

- ERROR IN AVAILABILITY BITS 

. READ VALID BITS 

STORE 


; VALID BITS OK? 
IF 


° YES, BRANCH 
. GET THE PATTERN JUST WRITTEN 
- STORE HIGH BYTE 
- ERROR IN VALID BITS 
- 00 ey NEXT OCTAL BOUNDARY 

- ALL 4 DONE? 


NOT, BRANCH 
OISABLE RELOCATION 
OISABLE CACHE 

EXIT DIAGNOSTIC MODE 


33 EXIT TEST 


s@ THIS TABLE HAS BITS KMCR<15-8> WHEN KMCR<8>=0 
3# KMCR<15>*0 FLAGGING CACHE MISS 


VALTBL: .BYTE 


20,30,34,36 


236,16 
216.6 
206.2 


202.0 


; ORDER FOR VALID: A, AB, ABC. ABCD 
s NOW ALL ne HITS-MISSC(WRITE TO I/0) 
VALID - NOT VALID 


s; HIT-MISS, A 

s HIT-MISS, 8: VALID - NOT VALID 
s HIT-MISS, C: VALID - NOT VALID 
s MIT-MISS, D: VALID - NOT VALID 


s@ THIS TABLE HAS BITS KMCR<15-6> WHEN KMCR<8 
s@ AT FIRST NO HITS ARE RECORDED, THE COMMENT "FIELD SHOWS SETS 


3 STARTING WITH LEAST AVAILABLE 


TOPTBL: .BYTE 
-BY 


-EVEN 


s BADC - 1 
s CBAD - 110100 
s OCBA - 111111 


s NOW MISS-HITS 

s -?ADCB->DCBA - 000111.111111 
s ->BOCA->DCAB - 111001,011111 
s ->CDAB->DABC - 011110,001011 
s ->»DABC->ABCD - 001011,000000 


ee 
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TEST - DEALLOCATION OF SETS 
2403 -SBTTL TEST - DEALLOCATION OF SETS 
2404 
2405 3@ THIS TEST CHECKS THAT EACH SET CAN BE MADE MOST — ANO 
2406 3@ DEALLOCATED ON THE NE):T READ ON THE OCTAL BOUNDAR 
2407 3 
2408 3 DISABLE CACHE TO MAKE A MOST AVAILABLE 
2409 3 ENABLE CACHE 
2410 3% 
2411 3# ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
2412 3% 
2413 3 OO FOR ALL 4 SETS ALLOCATING THEM IN CACHE 
2414 3 - ODO OMA READ ON OCTAL BOUNDARY USING DIAGNOSTIC_DATA_IN 
eee 3 ENDDO - THIS LEAVES A AS THE MOST AVAILABLE SET 
241 3% 
asi? 3@ TRY TO BRING A NEW LOCATIONS TO SET A 
24 3% 
2419 3 00 DMA READ ON De BOUNDARY FROM A FIFTH LOCATION TO SET A AGAIN 
2420 LET KMCR<@> = 
2421 3 IF KMCR«15112111!10!9!> NE <0,1,1,1,1> THEN 
2422 3 ERROR DEALLOCATIONG LRU SET CA ) 
2423 3 ENDIF 
e424 3 LET KMCR<@> = #1 
2425 3 IF KMCR<15-9> NE <0,0,0,0,1,1,1> THEN 
2426 3 . ERROR DEALLOCATING LRU SET (A) 
2427 3 IF 
2428 3% 
oe 3 TRY TO BRING A NEW LOCATIONS TO SET B 
3% 
2431 3 DO OMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET B 
2432 3 LET KMCR<6> = @0 
2433 3 IF KMCR<15!12!11!10!9!> NE <0,1,1,1,1> THEN 
es 3 - ERROR DEALLOCATIONG LRU SET (B) 
2435 3 ENDIF 
e4 3 LET KMCR<@> = #1 
2437 : IF KMCR<15-9> NE <0,1,0,0,0,0,1> THEN 
2438 3 . ERROR DEALLOCATING LRU SET (B) 
2439 3 ENDIF 
2440 3% 
oaes 3¢ TRY TO BRING A NEW LOCATIONS TO SET C 
3% 
2443 3 00 DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET C 
2468 3 LET KMCR<6> = 60 
2445 3 IF KMCR<15!12!11!10!9!> NE <0,1,1,1,1> THEN 
2446 3 . ERROR DEALLOCATIONG LRU SET (C) 
2447 3 ENDIF 
2448 Fy MY KMCR<6> = #1 
e449 3 IF KMCR<15-9> NE <0,1,1.0,1.0,0> THEN 
2450 3 . ERROR DEALLOCATING | LRU SET (C) 
2451 F ENDIF 
2452 3% 
oo 3+ TRY TO BRING A NEW LOCATIONS TO SET D 
3% 
2455 3 DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET D 
2456 ’ LET KMCR<6> = 60 
2457 Fy IF KMCR<15!12!11!10!9!> NE <0,1,1,.1,1> THEN 
2458 3 ERROR DEALLOCATIONG LRU SET (D) 
Fy 


ENDIF 








KS 
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TEST - DEALLOCATION OF SETS 


2460 ; LET KMCR<6> = #1 
2461 : IF KMCR<15-9> NE <0,1,1,1,1,1,1> THEN 
2462 : . ERROR DEALLOCATING LRU SET (D) 
2463 : ENDIF 
2464 ; 
2465 s ENDTST 
2466 ; 
2467 am a a A ala nail aria 
2469 BE SSSKSHKAAMEEKEEKEL HS GRAREADAEEASATEOHEKRHSEHHAEEARKEAEKEERERAEESSEDE 
s*TEST 25 DEALLOCATION OF SETS 
fj SHA SHREHKKERASHEADEHSESESASAGCKEKRSEEAKERESHRAEREHHEHEE HEHEHE EHREE 
010556 000004 TST25: SCOPE 
247 
2471 010560 005737 001720 TST PMIS 3 ANY PMI MEMORY? 
2472 010564 001002 BNE 20% s IF SOME, DO ue TEST 
2473 01 000137 011266 JP 100% ; OTHERWISE, EX 
2474 010572 052737 000400 177730 20%: BIS #6IT8,OCSR 3 SELECT DIAGNOSTIC MODE 
2475 010600 052737 000040 172516 BIS IT05, s ENABLE RELOCATION 
2476 010606 052737 000100 177734 BIS @BIT06 ,.KMCR s ENABLE CACHE 
2477 010614 012737 000200 170200 MOV #200, s POINT MAPOO TO FIRST 8KB 
2476 01 012737 000000 170202 MOV #0 , MAPHOO s IN HIGH AND LOW MAP REGISTERS 
ada 010630 0135737 177734 001124 MOV KMCR , $GDDAT s STORE LOW BYTE OF KMCR 
; 
a 3 ALLOCATE ALL SETS MAKING A MOST AVAILABLE 
; 
2483 010636 012701 000000 MOV #0,R1 3 START WITH O IN SET A 
2484 010642 004737 002222 1%: JSR PC .ODIN 3 . ALLOCATE A SET 
2485 010646 062701 000020 ADO #20,R1 3; . GET READY FOR NEXT SET 
2486 010652 022701 000100 #100,A1 ; . ALL 4 DONE? 
2487 010656 003371 BGT 1s ; . IF NOT, BRANCH 
2488 ; 
ned s TRY TO BRING A NEW SET TO A 
3 
2491 010660 012701 000100 MCV #100,R1 s TRY TO DO DATI 
010664 042737 2177734 BIC @6I TOS ,.KMCR ; READ VALID BITS 
2493 010672 004737 JSR .COIN s ALLOCATE IN CACHE 
2494 610676 0135737 177734 001126 MOV KMCR , $BDDAT : STORE KMCR 
2495 010704 737 001127 CHB 036, $#BODAT +1 s ALL SETS VALID? 
010712 001404 BEQ 2s s IF OK, BRANCH 
2497 010714 112737 000036 001125 MOVB @36, $GDDAT+1 s STORE EXPECTED PATTERN 
2496 010722 1 ERROR +26 ; DEALLOCATING A 
2499 010724 052737 177734 2%: BIS @6I TOS ,KMCR s READ AVAILABILITY BITS 
010732 015737 177734 001126 MOV KMCR , #BDDAT s STORE KMCR 
2 010740 122737 000017 001127 CHPB #17, #BDOAT+1 ; MRU:A.0.C.8 
2502 010746 001 BEQ 38 ; IF OK, BRANCH 
2503 010750 112737 000017 001125 MOVB #17, $GODAT+1 ; STORE EXPECTED PATTERN 
2504 010756 1 ERROR +26 ; DEALLOCATING A 
2505 ; 
aee s TRY TO BRING A NEW SET TO B 
; 
2506 010760 012701 000120 34; MOV #120,R1 s PREPARE FOR NEXT READ 
2509 010764 042737 000400 177734 BIC @BI TOS ,KMCR s READ VALID BITS 
2510 010772 004737 002222 JSR .GOIN 3 READ INTO CACHE 
2511 010776 0135737 177734 001126 MOV KMCR , SBDDAT 3 STORE 
2512 011004 737 000036 001127 CMPB 36, $BDDAT+1 ; ALL VALID? 
2513 011012 001404 BEQ as ; 1F YES, BRANCH 





EES SEuRUbaneeauenae 
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T2s DEALLOCATION OF 


2514 011014 
2515 011022 
2516 011024 
2517 011032 
2516 011040 
2519 011046 


BREE 
: 


2545 011176 
2546 
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SETS 
000036 


000400 
177734 
000400 
000177 
000177 


MOVB #36, $SGODAT+1 
ERROR +26 

at: BIS @BIT06, ate 
MOV KMCR , $#BDDAT 
CHPB #103, $BDDAT+1 
BEQ S$ 
MOVB #103, $GODAT +1 
ERROR +26 

$ 

s TRY TO BRING A NEW SET TO C 

H 

S$: MOV #140,R1 
BIC @6I TOS ,KMCR 
JSR PC ,OOIN 
MOV KMCR , SBODAT 
CHPB @36 , SBODAT+1 
BEQ 6$ 
MOVE @36 , $GODAT+1 
ERROR « 

6%: BIS #61 T06 , KMCR 
MOV KMCR , $8DDAT 
CHPB 151, $BODAT +1 
Gea 7$ 
MOVE #151, $GODAT+1 
ERROR +26 

5 

s TRY TO BRING A NEW SET TO D 

2 

7: MOV #160,R1 
BIC @BIT06 ,KMCR 
JSR PC .ODIN 
MOV . $BODAT 
— 036, $BODAT+1 
MOVB @36 , SGODAT +1 
ERROR + 

8s: BIS @BI TOS ,KMCR 
MOV $ T 
BIC @6IT06 ,OCSR 
CMPB 0177, $BDDAT+1 
BEQ TST26 
MOVE #177, $GODAT +1 
ERROR +26 


MARU:D, 
IF OK, EXiT TEST 


STORE EXPECTED PATTERN 
DEALLOCATING 6B 

READ AVAILABILITY BITS 
STORE KMCR 

MRU:B,A,0.C 

IF OK, BRANCH 

STORE EXPECTED PATTERN 
DEALLOCATING 8 


PREPARE FOR NEXT READ 
READ VALID BITS 
ACHE 


BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING C 
READ AVAILABILITY BITS 
STORE KMCR 
MRU:C.B,A.D0 
IF OK, BRANCH 
STORE EXPECTED PATTERN 
DEALLOL ‘TING C 


PREPARE FOR NEXT READ 
READ Va_iD BITS 
INTO CACHE 


BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING D 
READ AVAILABILITY BITS 
STORE 


EXIT DIAGNOSTIC MODE 


STORE EXPECTED PATTERN 
DEALLOCATING D 
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Q 0064 
TEST - CACHE WITH RELOCATION DISABLED 
2560 -SBTTL TEST - CACHE WITH RELOCATION DISABLED 
2561 
2562 3@ THIS TEST CHECKS THAT CACHE IS NOT OPERATIONAL WHEN RELOCATION IS 
2565 :@ DISABLED AND KMCR<15-9> ARE NO! INITIALIZED. 
2564 3 
2565 ; BGNTST 
2566 3 
2567 3 SAVE KMCR<15-9> FOR KMCR<8>=0,1 
2568 : LET MMR3<5>=@0 TO DISABLE RELOCATION 
2569 3 DO OMA READ USING DIAGNOSTIC_DAIA_IN 
2570 3 LET KMCR<8>=0 
2571 3 IFB KMCR+1 NE SAVED THEN 
2572 3 . ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
2573 3 ENDIF 
2574 3 LET KMCR<6>=1 
2575 3 IFB6 KMCR+1 NE SAVED THEN 
2576 3 ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 
2577 3 ENDIF 
2578 3 
2579 3; ENDTST 
2580 8 
2561 Bm nn nn re nn nn en rn nn ne eee enn e nnn ene n enn ee----- 
2562 
2583 3 § SSHSSSSSSSHSSSSSSHHSESSSHSSSSSSSS . SOSHHSHSHSSHSSHHSSHSSHEEEEEEEEE 
s*TEST 26 CACHE WITH RELOCATION DISABLED 
3S SSSSSSSSSSSSSSSSSSSSSSSSSSHEHSS SESSSSESHESEESSHESHESEHEEEEOEESE 

ones 011266 000004 TST26: 
2585 011270 005737 001720 TST PMIS ANY PMI MEMCRY? 
2586 011274 001460 BEG TST27 33; IF NONE, EXIT ‘TEST 
2587 011276 052737 000100 177734 BIS @BITO6 .KiCR MAKE SURE THAT CACHE IS ENABLED 
2588 011304 052737 000400 177730 BIS @@7706.0CSR SELECT DIAGNOSTIC MODE 
2589 011312 042737 000040 172516 BIC @#BITO5 ORS DISABLE RELOCATION 
2590 011320 042737 000400 177734 Brc eBITOS, SELECT VALID BITS 
2591 011326 042737 000400 177734 eIc ob ° READ VALID BITS FIRST 

11334 013737 177734 001124 MOV KMCR, STORE LOW BYTE 
2593 011342 105037 601125 CLRB SGDDAT +1 CLEAR HIGH BYTE 
2594 011346 032737 017000 17773 BIT #BIT12:BIT11!:8IT10!:BI1T9,KMCR ALL VALID BITS CLEAR? 
2595 011354 001404 BEQ 3% IF YES, ANCA 
2596 011356 013737 177734 001126 MOV KMCR , $BDDAT STORE KMCR 
2597 011364 104026 VALID BITS NOT CLEAR WITH KMCR<6>=0 


ERROR +26 
2598 011366 052737 000400 177734 53%: a #8 1T06 , KMCR NOW READ AVAILABILITY BITS 


2599 011374 0157357 177734 001126 KMCR , 6BD0AT STORE KMCR 

2600 011402 122737 000177 001127 CHPB 177, $BODAT+1 ALL SET? 

2601 011410 001404 BEQ ay IF YES, EXIT TEST 

2602 011412 112737 00177 001125 Move #177, $GODAT+1 EXPECTED PATTERN 

2603 011420 104026 ERROR + AVAIL. BITS NOT SET WITH KMCR<6>=0 
2604 011422 042737 000100 177734 4%: BIC @BITO6 .KMCR DISABLE CACHE 

2605 011430 042737 000400 177730 BIC #81IT08 ,OCSR EXIT OIAGNOSTIC MODE 


NS 
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TEST - WRITE CYCLES AND CACHE 
2608 -SBTTL TEST - WRITE CYCLES AW CACHE 


2611 ;@ WRITE HITS WHICH INVALIDATE THE SET AND MAKE THIS SET THE MOST AVAILABLE. 
BGNTST 
SAVE KMCR<15-9> FOR KMCR<8>=*0,1 


5610 . g@ THIS TEST CHECKS THAT DMA WRITE CYCLES DON’T AFFECT THE CACHE, EXCEPT 
Hy 
; 
; 
; 
2616 ; DO DIAGNOSTIC_DATA_OUT WITH TAGS NOT CORRESPONDING TO ANY SETS 
2617 ; DO FOR KMCR<8>=0,1 
2518 : IF KMCR<15-9> NE SAVED VALUES THEN 
261° ; . ERROR WRITE CYCLES AFFECT THE CACHE 
2620 ; ENDIF 
2621 ; ENDOO 
2622 : 00 DIAGNOSTIC DATA_OUT THAT CAUSES A HIT 
2623 ; IF NOT A HIT THEN | 
2624 ; ERROR RECORDING HITS 
2625 : IF THE SET IS VALID OR NOT MOST AVAILABLE THEN 
2626 ; ERROR IN LEAST RECENTLY USED LOGIC 
2627 Fy 
2628 3 
2629 ; ENDTST 
2630 3 
2631 Br re rn nee ee nnn nnn nn ne nn een eee nen ee ne eee eee eeee 
2632 
2633 3 § SSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSESSSSSSSESSESSSESESEEEEES 
3@TEST 27 WRITE CYCLES AND CACHE 
3 § SSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSTSSSESSSSHSSSESEESEEEES 
oe 011436 000004 TST27: SCOPE 
2635 011440 005737 001720 TST PHIS ; ANY PMI MEMORY? 
2636 011444 001002 BNE 20% ; IF SOME, DO THE TEST 
2637 011446 000137 012120 JUMP 00% ; OTHERWISE EXIT 
2638 011452 052737 177730 20% BIS @8IT06,OCSR ; SELECT DIAGNOSTIC MODE 
2639 011460 052737 000100 177734 eIs @8IT06 .KMCR ; CACHE STILL 
2640 011466 052737 000040 172516 BIS 8 ITOS PRS ; ENABLE RELOCATION 
2641 011474 012737 000200 17 " ; POINT MAPOO T 
011502 012737 000000 17 / ; GH AND MA we T REGISTERS 
2643 011510 042737 000400 177734 BIC @68IT06 ,KMCR ; SELECT VALID BITS 
2644 011516 013702 177734 a ; SAVE VALID BITS OF KMCR 
2645 011522 052737 177734 BIS @68ITOS ,KMCR ; SELECT AVAILABILITY BITS 
osee 011530 013703 177734 MOV KMCR RS ; SAVE AVAILABILITY BITS 
3 
2648 ; ACCESS LOCATION NOT IN CACHE 
G 
2650 011534 012701 000200 MOV #200 ,R1 ; ACCESS ADORESS 
2651 011540 013737 000400 001124 MOV 80400, $GDDAT ; THE PATTERN TO BE WRITTEN 
2652 011546 004737 002210 PC, ; DO DIAGNOSTIC DATA OUT 
2653 011552 042737 177734 BIC @8IT08 ,KMCR ; SELECT VALID BITS 
2654 O11 020237 177734 ‘ ; KMCR CHANGED? 
2655 011564 001406 BEQ 1% ; IF NOT, BRANCH 
2656 011566 010237 1124 MOV R2, $GDODAT ; EXPECTED PATTERN 
2657 011572 013737 177734 001126 MOV KMCR , $8DDAT ; RECIEVED PATTERN 
2658 011600 1 ERROR + ; WRITE MISSES AFFETS CACHE 
2659 011602 052737 177734 18: BIS @68IT08 ,KMCR ; SELECT AVAILABILITY BITS 
2660 011610 020337 177734 CMP R3,KMCR ; KMCR CHANGED? 
2661 011614 001406 BEQ 26 ; IF OK, BRANCH 





T27 


2662 011616 


2706 012120 
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WRITE CYCLES AND CACHE 


010337 
013737 
104026 
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001124 
177734 


001126 


177734 
177734 


MOV R3, $GODAT 
MOV KMCR , SBODAT 
ERROR +26 

’ 

3 CHECK THAT WRITE HIT INVALIDATES CACHE 

i 

2s: BIC @BIT06 ,KMCR 
BIS B81 T06 ,KMCR 
MOV oc ,R1 
JSR PC .OOIN 
MOV @20,R1 
JSR PC DOIN 
CLR Ri 
_ 80200, $GDDAT 
BIT @6IT15,KMCR 
BNE 
MOV » SGDDAT 
MOVB 0363, $GDDAT 
MOV » $BODAT 
ERROR «+ 

38: BIC @BITO6 ,.KMCR 
6IT @61T12,KMCR 
Bra at 
MOV T 
MOVE @BITOS, SGDDAT+1 
MOV KAR, T 
ERROR +26 

at: MOV KAR , SGDDAT 
MOvB @200,, $GDDAT +1 
mov , 88220 
IT @BIT1S,KMCR 
Bae S$ 
MOV KMCR , $BODAT 
ERROR +26 

S$: BIT 61711 ,KMCR 
BEQ 6% 
MOV e T 
Bice @BITO4!BI TOS, SGODAT+1 
mov ° T 
ERROR + 

6%: BIC @BIT06 ,KMCR 
BIC OBITOS POMS 
BIC #61108 ,OCSR 


EXPECTED PATTERN 
RECIEVED PATTERN 
WRITE MISSES AFFETS CACHE 


DISABLE CACHE TO GET TO KNOW STATE 
ENABLE CACHE 


ADDRESS 0 

ALLOCATE CACHE SET A 
ADDRESS 20 

MD MLOCATE SET B 

ACCESS SET A 

THE PATTERN TO BE WRITTEN 
INVALIDATE CACHE 

HIT? 

IF YES, BRANCH 

PRESERVE LOW BYTE IF ERROR 


READ VAL s 
A VALID? 
IF INVALIDA 
LOW BYTE IF ERROR 
mMISss. 6 V 
RECIEVED 


PATTERN 
WRITE HIT DOES NOT INVALIDATE 
PRESERVE LOW BYTE IF LAROR 
HIT RECIEVED 
= Mei TO SET B 


IF MOT, EXIT TEST 
IN CASE HIT WENT AWAY 

CLEAR ALL EXTRA 

RECIEVED PATTERN 

CPU WRITE DOES NOT INVALIDATE 
DISABLE CACHE 


AND MAPPING 
EXIT DIAGNOSTIC MODE 


TEST 


2761 012310 
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- DMA READ WITH INDEX NOT ZERO 


Ce 
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001720 


000400 
001124 177734 
177724 001126 


000400 
177734 


001124 
177734 001126 


-SBTTL TEST 


- DMA READ WITH INDEX NOT ZERO 


s¢ THIS TEST a THAT A DMA READ MISS DOES NOT AFFECT THE CACHE IF THE INDEX 


:¢ FIELO IS NOT ZE 


BGNTST 


SAVE KMCR<15-9> FOR KMCR<6>@ 

DO DIAGNOSTIC _DATA_IN FOR A LOCATION WITH NON-ZERO INDEX 
FOR KMCR<8>*0,1 

IF KMCR<15-9> NE SAVED THEN 
ERROR IN COMPARING INDEXES 


seTEST 


AD WITH INDEX NOT ZERO 


TST3O: SCOPE 


TST 
BEQ 


: 
s ENABLE CACHE AND ALLOCATE SET A 


PMIS 
TST31 


3 ANY 


PMI MEMORY? 


SELECT DIAGNOSTIC MODE 

ENABLE RELOCATION 

ENABLE CACHE 

POINT MAPOO TO FIRST 6x65 

IN HIGH AND LOW MAP REGISTERS 
ALLOCATE 200-216 

IN CACHE 


3 
s TRY TO CHECK WHETHER NON-ZERO INDEX EFFECT CACHE 


eBIS 81106 ,OCSR 
BIS 681705 ,PORS 
BIS BI T06 , KMCR 
MOV * 
mov 60, 
MOV @0,R1 
JSR PC DOIN 

1 

‘ BIC BI TOS, KMCR 
mov . SGDDAT 
Is 81706 , KMCR 
Ov KACR RS 
MOV #102,R1 
JSR .OOIN 
BIC @BIT06 ,KMCR 
cH $GODAT , KMCR 
BEQ 16 
MOV KMCR , SBODAT 
ERROR + 

is: BIS @61T06 ,KMCR 
Cee 3, KMCR 
BEQ 2 
MOV R3, $GODAT 
MOV KMCR , #BDDAT 
ERROR + 


SELECT VALID BITS 

SAVE VALID BITS OF KMCR 
SELECT AVAILABILITY BITS 
SAVE AVAILABILITY BITS 
TRY CACHING 102 

DO DIAGNOSTIC DATA IN 
SELECT VALID BITS 
KMCR CHANGED? 


IF NOT, BRANCH 
RECIEVED PATTERN 
-ZERO INDEX AFFECTS CACHE 
SELECT AVAILABILITY BITS 
KMCR CHANGED? 
If NOT, . TEST 
EXPECTED DATA 
RECIEVEED DATE 
NON-ZERO INDEX AFFECTS CACHE 


SEQ 0067 


Dé 
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T30 DMA READ WITH INDEX NOT ZERO 
2762 012312 042737 000100 177734 2%: BIC @BIT06,KMCR 
2763 012320 042737 000040 172516 BIC BI TOS ,MARS 
2764 012326 042737 000400 177730 BIC #61T08 ,OCSR 


2765 


eee 


e 


s DISABLE CACH 
s AND MAPPING 
s EXIT DIAGNOSTIC MODE 


SEQ 0068 


KTJ11-8 DIAGNOSTIC 
TEST - TAG REGISTERS 


012334 
12 
2613 012336 


2619 012366 
2620 012372 


E6 
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001720 


012654 
000040 


000400 
002244 
177572 


177734 
177730 


-SBTTL TEST - TAG REGISTERS 


s@ THIS TEST WILL AUTOSIZE MEMORY IN 128K WORDS. THEN DEPENDING 
s@ ON THE AMOUNT OF MEMORY AVAILABLE, A PATTERN OF ALTERNATING 0’S 
3@ AND 1'S WILL BE CONSTRUCTED TO VERIFY THE TAG REGISTERS. 


BGNTST 
SAVE TIMEOUT VECTOR 
ENABLE MMU 
LET Ri = KIPAR6 
REPEAT 10 CONSTRUCT A MASK FOR NXM FOR MAPHO1 
. LET R1 = Ri SHIFT.LEFT BY 01 
- LET R1 = Ri + KIPARG 
UNTIL CARRY SET 
SWAP R1 
LET R1 = Ri SHIFT.RIGHT BY #3 TO GET BITS<21-16> FROM <21-13> 
LET KMCR<6> = #1 TO ENABLE CACHE 


LET R2 = OTBLPL FOR PATTERNS FOR LOW REGISTER 
LET RS = @TBLI FOR PATTERNS FOR HIGH REGISTER 


. * MAPHO] CLEAR.BY Ri NOT TO GET NXM 
- OC DIAGNOSTIC -DATA_IN TO ALLOCATE TAG PATTERN 


- MOVE POINTERS THRU PATTERN TABLE TO PREVIOUS 4 WORDS 
- ENABLE 22-BIT Mew 
- FOR 4 PATTERNS 
LET MAPLOI] = (R2)+ 
LET MAPHO1 = (R3)- 
LET 1 * MAPHO1 CLEAR.BY R1 NOT TO GET NXM 
00 OIAGNOTIC on IN FROM IN CACHE 
IF NOT A HIT 
- ERROR IN TAG R REGISTERS 


ENT 
DISABLE 22-BIT My 
ENDOO 


hm 


8 F SSOSSSSSSSSSSSHSSSSSSSE SSSSSHSSSSSSSSSSSSSESSSSEHSSSSESSESESSSESEEEEE 


seTEST 31 TAG REGISTERS 


§ § SSSSSSSHASSSSSSSSSSSSSSSSSSHSSSSSESSSSSSSSSSSSSHESSHSSSSEHESEHSEEEE 


TST31: SCOPE 
TST PMIS ; ANY PMI MEMORY? 
BNE 1% + YES 
JP 100% s IF NONE, EXIT TEST 
18; BIT @B81T05,KMCR 3 18-BIT MONE? 
TST32 ss IF VES, EXIT TEST 
BIS #81708 ,OCSR . SELECT pee aie —— 
JSR PC ,MAPPR PROGRAM 


INC MARO ; ENABLE MMU 


SEQ 0069 





T31 
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TAG REGISTERS 


2621 012376 
2622 012404 
2623 012412 


052737 
022737 
001412 
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F6 


SE@ 0070 


000020 172516 BIS @BIT04 ,MMRS + ENABLE 22-B7T 
000040 001720 CMP @40,PMIS s IF 2M PRESENT, ONLY 21ST MASKED 
BEQ S$ s DON'T CONSTRUCT MASK 
: 
: IF LESS THEN 2M OF MEMORY, MAKE UP A MASK FOR MAP HIGH REGISTERS 
; 
cic 3 CLEAR CARRY 
001720 MOV PMIS,R1 s SAVE KIPAR6 
4%; 3 . ROTATE LEFT R 
001720 BIS PMIS,R1 s . AND ADD BIT at FIRST POSITION 
BHIS as s . IF CARRY NOT SET, BRANCH 
SWAB R1 3 <15- 6><---><7-0> 
ROR R1 s NOW GET ADORESS BITS <21-16> 
ROR R1 3 FROM <21-14> 
3 ALLOCATE DIFFERENT PATTERNS IN TAG REGISTERS 
3 
000100 177734 5$: BIC #BIT06 ,KMCR 3: DISABLE CACHE 
000100 177734 BIS @BIT06 ,.KHCR 3 ENABILE CACHE 
000400 177734 BIC @BITO6 ,KMCR 3 MAKE SURE THAT VALID READ 
000040 172516 BIS @BITOS PRS 3s ENABLE MAPPING 
012656 MOV oTeLeL , t POINTER FOR LOW MAP PATTERNS 
012716 MOV @TBLIMH RS s POINTER FOR HIGH MAP PATTERNS 
001160 MOV R1, $TMPO 3s SAVE THE MASK 
000004 MOV 04 .R4 s COUNTER FOR 16 PATTERNS 
020000 6%: MOV #20000 ,R1 3 TO ACCESS THRU MAP REG. 1 
000004 MOV 04 RS ; . OO EACH FOR AT A TIME 
170204 7$: MOV (R2)+ ,MAPLOL F LOAD LOW 
170206 MOV (R3)+ ,MAPHOL F LOAD HIGH MAP 
001160 170206 BIC ¢TMPO ,MAPHO! 3 - MASK OUT 
JSR PC .ODIN 3 - 0O DIAGNOSTIC DATI 
soB8 RS.78 3 00 FOR ALL 4 PATTERNS 
177734 MOV KMCR ,R1 3s « STORE SETS VALID? 
COM R1 : . COMPL VALID BITS 
017000 BIT #17000 ,R1 3 THAT'S ALL VALID BITS 
BEQ bs s . IF ALL SET BEFORE COM, BRANCH 
ERROR +27 3 . NOT ALL VALID BITS SET 
s 
3s NOW INVALIDATE BY WRITING TO THE SAME LOCATIONS 
3 
000010 8s: SUB #10,R2 s . MOVE a. TO -4 
009010 SUB #10,R3 3: . MOVE HIGH MAP POINTER TOO 
MOV 64 ,R5 3 . VALIDATE my ye PAI TERNS 
020000 MOV #20000 ,R1 s . POINTER TO MAP 1 
170204 9%; MOV (R2)+, MAPLOL 3 . . LOAD LOW MAP 
170206 MOV (R3)+ , MAPHOL 3 LOAD HIGH MAP 
001160 170206 BIC »MAPHOL : MASK OUT 
002222 JSR »OOIN : . DO DAIGN. DATA IN 
100000 177734 BIT #6IT15,KMCR F . HIT? 
BNE 10% : . . IF HIT, BRANCH 
ERROR +27 s . . IN TAG "REGISTERS 
108: S08 RS ,98 OC FOR ALL 4 PATTERNS 
sos R468 : REPEAT oo ALL 16 PATTERNS 
177572 CLR ’ DISABLE MMU 
000400 177730 ions BIC @B8IT08 ,OCSR 3 EXIT DIAGNOSTIC MODE 
: 
TST32 83 EXIT TEST 
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SE 7 
T31 TAG REGISTERS wdhontts 
2880 3 
2881 ceeeae itrres 052520 000000 TBLML: .WORD 125240,52520,.0,177760 s FIRST PATTERN THRU 4 TAGS 
cesses 052520 000000 177760 -WORD 52520,0,177760,125240 s SECOND PATTERN 
28683 012676 000000 177760 125240 ~ WORD 0,177760,125240,52520 3 THIRD 
012704 052520 
2884 poy Se 177760 125240 052520 -WORD 177760,125240,52520,0 3s FOURTH 
2885 3 
ooat 3 PATTERNS FOR HIGH MAP REGISTER 
3 
2888 poy ity ates | 000025 000000 TBLMH: .WORD 5$2,25,0,77 3: FIRST FOR HIGH MAP REGISTER 
2689 012726 000025 000000 000077 -WORD 25,0,77,52 s SECOND 
012734 000052 
2690 poy then 000000 000077 000052 -WORD 0,77,52.25 3; THIRD 
28691 012746 000077 000052 000025 -WORD 77,52,25,0 3s FOURTH 


| 
2877 
2878 : 
2879 3: PATTERNS FOR LOW MAP REGISTER 
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TEST - CACHE RAM BIT PATTERN TEST 


-SBTTL TEST - CACHE RAM BIT PATTERN TEST 

3@ THIS TEST } DONE TO CHECK THE OPERATION OF 
3@ THE CACHE RAM . BIT PATTERNS 0,177777,52525 
3* AND 125252 ARE "WRITTEN TO ALL OF THE MEMORY 
3# USED AND THEN VERIFIED 


s BGNTST 


3* GO SET UP THE CACHE IMAGE TABLE 
: LET or :* @CTBLE 
REPEAT 


- IF RO POINTS TO OCTAL BOUNDARY ADDRESS THEN 
. WE HAVE FOUND THE BEGINNING OF THE TABLE 


ELSE 
POINT RO TO THE NEXT ADORESS 
UNTIL WE HAVE FOUND BEGINNING OF THE TABLE 
SET UP BOARD FOR THE TRANSFERS 


ENABLE UNIBUS MAPPING 

ENABLE DIAGNOSTIC MODE 

ENABLE CACHE 

DO FOR PATTERN :* 0,177777,52525, 125252 
4 

3@ INITIALIZE THE CACHE TABLE 


3% 

3 - OO FOR ALL OF THE CACHE TABLE 

3 . . WRITE PATTERN TO TABLE 

3 - ENDODO 

4 

s ALLOCATE ALL THE CACHE 

@ 

; - OO UNTIL ALL CACHE ALLOCATED 

3 - «» OO A DIAGNOSTIC DATI NPR CYCLE (ON OCTAL BOUNDARY) 
3 . ENDDO 

a 

non CHECK THAT THE DATA GOT CACHED CORRECTLY 
cs 

: . = FOR ALL OF THE CACHE T 

F . DO A DIAGNOSTIC DATI NPR CYCLE 
3 - « IF OOR NEQ PAT 

$ — ERROR IN CACHE RAM 

F = Ot IF 

$ ‘ 

3 ENDOO 

$ 

s ENDTST 

$ 


§ SSOOSSOSSSOSESSS SSS OSEEESEESESEEESESEEDEEEESEEEESEESEESEAEEOEESS 
s*TEST 32 CACHE RAM BIT TEST 


$F SOSESSSSSSSSSSSESSSSSSSSSSSESSSSESSHSSHSSSHSSSSESHSHEHHEHESEHEHEEEES 


a ——~<- + ee em ee ee ee ee eee 


| 
ee 


> = “ 


T32 


012756 


2997 013142 
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000004 
005737 
001511 
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001720 


177730 


172516 


177730 
177734 


177734 





16 | 
SEQ 0073 
TST32: SCOPE 
TST PMIS s ANY PMI MEMORY? 
BEQ TST33 ss IF NONE, EXIT TEST 


‘ 
; FIND THE FIRST OCTAL BOUNDARY ADDRESS IN THE TABLE 


BIS #61T08 ,OCSR s SELECT DIAGNOSTIC MODE 
MOV ocTeLe, s GET POINTER TO THE START OF THE SPACE ALLOCATED FOR THE CA 
S$: MOV RO,R1 s SAVE IT IN Ri FOR WORKING 
BIC #177760,R1 s MASK IN THE LEAST par: 4 ag OIGIT 
TST R1 s IS THE ADDRESS ON AN OCTAL BOUNDARY 
BEQ 10% s YES, THEN GO SET UP THE TABLE ADORESSES 
TST (RO)+ s NO, THEN GET THE NEXT ADDRESS 
BR S$ s . GO CHECK IF IT FALLS ON AN OCTAL BOUNDARY 
10%: MOV @OBADR ,R2 s GET POINTER TO THE OCTAL BOUNDARY TABLE 
MOV #4 ,R3 s SET UP THE LOOP COUNTER 
12%: MOV RO, CR2) s . GO PUT ADORESS INTO THE TABLE 
ADO @20,RO s . GET NEXT OCTAL BOUNDARY 
SOB R3,12% s . FILL UP THE TABLE ? 
' 
: INITIALIZE THE BOARD FOR THE TRANSFERS 
6IS BITS, SRS s ENABLE UNIBUS MAPPING 
CLR MAPHOO s CLEAR HIGH MAP REGISTER 
BIS @6IT8,0CSR s ENABLE DIAGNOSTIC MODE 
BIS @6IT6 ,.KMCR 3 ENABLE THE CACHE 
MOV @PTRN16 ,kO s GET POINTER TO THE CACHE PATTERN TABLE 
iS$: MOV OBADR ,R1 : GET POINTER TO THE CACHE IMAGE TABLE 


; 
s INITIALIZE THE CACHE IMAGE TABLE TO CURRENT PATTERN 
3 


MOV #40 ,R2 s . SET UP LOOP COUNTER 

20%: OV CRO), CR1)+ 3s . . MOVE PATTERN TO TABLE 
$08 R2,20% 3 . . HAVE WE DONE IT 40 TIMES ? 

$ 

s ALLOC*TE ALL THE CACHE MEMORY AVAILABLE 

3 
MOV @OBADR ,R2 s . GET ADDRESS OF OCTAL BOUNDARIRES WITHIN THE TAB;E 
MOV 64 ,R3 s . SET UP LOOP COUNTER 
CLR R1 3 . NON-MAPPED ADORRESS=-0 

25%: MOV (R2)+ ,MAPLOO s . . SET UP MAP FOR DIAG NPR DATI CALL 
JSR PC DOIN s . . GO DO A DIAGNOSTIC DATA IN CYCLE 
$08 R3,25% s . . MAVE WE DONE IT 4 TIMES ? 

s CHECK THE CACHE RAP IMAGE PATTERN 

3 
MOV 40 ,,R3 - SET UP LOOP COUNTER 
MOV OBADR, . GET ADDRESS OF CACHE IMAGE TABLE 

(THIS WHOLE TABLE SHOULD BE CACHED) 

CLR Ri . USE ADDRESS 0 

308: MOV R2,MAPLOO . GET ADORESS FPR DIAG. DATA IN CYCLE 
JSR GO DO A DIAGNOSTIC DATA IN 


- « MIT? 
* @ IF Ss, 
. » OTHERWISE, ERROR 
. 1 OID IT GET STORED CORRECTLY ? 
. YES, THEN GO CHECK THE NEXT LOCATION 





’ 
i 
’ 
’ 
. a 
PC .OOIN . e's 
’ 
' 
' 
‘ 
' 
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T32 CACHE RAM BIT TEST 
3004 013172 104030 ERROR +30 
3005 013174 077316 40%: SOB R3, 30% 
3006 013176 005720 TST (RO)+ 
3007 013200 001333 BNE 


J6 


15% 
3008 013202 042737 000400 177730 BIC #6IT08 ,OCSR 


. IF NOT HAVE DONE, BRANCH 
EXIT DIAGNOSTIC MODE 
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000400 177730 
000200 177520 


SE@ 0075 


-SBTTL TEST - BOOT ROMS TEST 


s# THIS TEST CHECKS FOR THE PRESENCE OF BOOT ROMS. IF THEY ARE FOUND, 
s@ A CRC TEST IS PERFORMED FOR ALL THE ROM'S. 


BGNTST 


LET BCSR = BCSR SET.BY @#BITOS TO ENABLE ACCESSING OF ROM’S 
LET PCR = #0 TO ACCESS FIRST PAGE 

LET R4 = #173000 FOR STARTING ADDRESS 

LET $TMPO = #0 TO CLEAR COUNT FOR EMPTY ROM'S 


POSSIBLE 
IF (R4) EQ #161777 (EMPTY SOCKET) THEN 
. INCREMENT $TMPO TO COUNT EMPTY ROM'S 
IDENTIFY POSITION OF EMPTY SOCKET 


LET Ri = #0 TO COUNT BYTES IN ROMS 
- FOR EACH LOCATION IN A ROM UNTILL R1=126 
IF LOCATION 24 ACCESSED THEN 
- IF (R4) NE #173000 THEN 
. ERROR IN LOCATION 24 
ENDIF 


i Ri NOT TO DO BYTE 25 
 trcacsaaae CRC FOR THE BYTE 
INCREMENT R1 FOR THE NEXT BYTE 
ENDOO 
IF $TMPO NE @4 NOT ALL EMPTY 
TRY TO WRITE 4 t~ 80173000 IN DIAGNOSTIC MODE AND OUT 


IF NO TIMEOUT T 
- aaa WRITE ACCESS TO ROMS DOES NOT TIMEOUT 


UBETST: 

§ fSSSCSSSSSSSSESSSSESSESESEESSESEESEESESSEESEESESEEEESEEDEEEEEEEES 
s*TEST 33 BOOT ROMS TEST 

§ J OSSOSSSSSESSESSSSSESESSEEEESEEEESEESEEESEDEEEEEEEEEEEEEEEEEEDES 
TST33: SCOPE 


; 
3 PREPARE TO DO CRC 


BIC #6IT08 ,OCSR s LEAVE STANDALONE MODE 
BIS #61107 ,8CSR s TO ENABLE BOOT ROMS 

CLR PCR s TO READ PAGE 0 

MOV #173000 ,R4 3 R4& PONTS TO FIRST ADOPESS 
CLR $TMPO s CLEAR EnPTY SOCKET COUNT 


5 
s DO FOR EACH POSSIBLE ROM 
; 
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T33 BOOT ROMS TEST 


| 
3064 013242 022704 173776 1%: CMP @173776,R4 s . ALL ROM’S DONE? 
3065 013246 103475 ; BLO 118% 3; . IF SO, EXIT 
3066 013250 005001 CLR R1 3 . CLEAR COUNTER THRU A ROM 
3067 013252 005005 CLR RS s . INITIALIZE PARTIAL CRC 
3068 3 
3069 ; CHECK FOR EMPTY SOCKETS AND EXIT IF SO 
3070 ’ 
3071 013254 022714 161777 CMP @161777,(R4) 3 . EMPTY SOCKET? 
2 01326C 001027 BNE 33 : . IF NOT, BRANCH TO DO CRC 
3073 013262 005737 001206 TST $PASS 3 FIRST PASS? 
3074 013266 001017 BNE es 3 IF NOT, BRANCH 
3075 013270 122737 000001 001220 CMPB @APTENV , SENV 3; IN APT MODE? 
76 013276 001413 BEQ 23 s IF SO, SKIP PRINTOUT 
3077 013300 032737 000040 000052 BIT #BITOS ,8052 s . IN UFO MODE? 
013 001007 BNE es s . IF IN UFO, 
3079 013310 010446 MOV R4,-C(SP) 3 . PUT NUMBER TO TYPE OUT 
3060 013312 104401 013576 TYPE e 3 TYPE ASCII MESSAGE 
3061 013316 104403 TYPOS 3 TYPE 
3062 013320 006 BYTE 6 3 TYPE 6 DIGITS 
3063 013321 000 BYTE O Fy Ss 4 
3064 013322 104401 001175 TYPE » $CRLF 8 CARRIAGE RETURN 
3065 013326 005237 001160 2s: INC STMPO 3 Y SOCKET COUNT 
30866 013332 062704 000200 ADO #200 ,R4 3; . PREPARE TO 0O NEXT ROM 
3087 013336 000741 BR is : . BRANCH TO DO NEXT ROM 
3088 3 
— 3: IN EACH ROM CHECK LOCATION 24 AND DON’T DO CRC ON IT 
3 
3091 013340 022701 000024 3%: CMP 024 ,R1 3 LOCATION 24 ACCESSED? 
3092 013344 001007 BNE 53% i « NO, 
3093 013346 022724 173000 CMP #173000, (R4)+ 3 . PROPER DATA AT 24? 
3094 013352 001401 BEe As 3; . IF YES, BRANCH 
3095 013354 104031 ERROR ¢31 ; . WRONG DATA AT 24 
3096 013356 005201 4%: INC R1 3; . INCREMENT FOR AN EXTRA BYTE 
ate 013360 000137 013420 sp Bs ; . DO NOT DO CRC FOR 24 
sees ; DO CRC FOR EACH BYTE 
3 
3101 013364 112403 S$: MOVB CR4)+,R3 3s . STORE CORRECT DATA IN R3 
02 013366 012702 000010 MOV - R2 : . NUMBER OF BITS PER BYTE 
3103 013372 000241 6%: CLC 3 . CLEAR CARRY 
3104 013374 006005 ROR RS 3 . . LOW BIT PARTIAL TO CARRY 
3105 013376 006003 ROR R3 3; . . CARRY TO BYTE AND BYTE TO CARRY 
3106 013400 102006 BYC 7% 3 . . XOR OF PARIAL AND BYTE LOW BITS 
3107 013402 012746 120001 MOV @POLY, -( SP) 3 . . XOR POLY TO PARTIAL (4 INSTRUCTIONS) 
3106 013406 040516 BIC RS .(SP) 3s . . NOT PARTIAL AND POLY 
3109 013410 042705 120001 Bic Y, 3 . . NOT POLY AND PARTIAL 
3110 013414 BIS (SP)+,RS5 3 . POLY XOR PARTIAL 
3111 013416 077213 7% S08 R2,6% . DECREMENT BIT COUNT AND CONTINUE 
ae 013420 1 8% INC R1 = COUNT BYTES 
3 
st : IF A ROM DONE, CHECK FOR O IN RS 
3 
3116 013422 022701 000200 CMP #126. ,R1 : . ALL 64 WORDS DONE? 
3117 013426 003544 BGT 3% 3 IF NOT, BRANCH 
3116 013430 0057C5 TST RS 3 IF YES, CRC 0? 
3119 013432 001401 BEQ 10% 3: . IF CRC = 0, BRANCH 
3120 013434 104031 ERROR 31 3 . CRC FOR A ROM NOT EQUAL TO O 
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T33 


3152 


013436 


000137 


013737 
012737 
0050 
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013242 
001160 
013466 000004 
173000 
000400 177730 
177734 
177700 
000077 
000400 177730 
000010 177730 
013554 000004 
173000 
000410 177730 
001160 
104 104 
105 123 
040 117 
040 105 
120 124 
040 125 
101 040 
117 103 
105 124 
000 


108: JMP 1% 8 

3 

3; TRY TO WRITE TO GET A TIMEOUT 

3 

11%: MOV ERRVEC , $TMPO ; 
MOV #15% ,ERRVEC 3 

14%: CLR 80173000 $ 
ERROR +31 3 
BR 163 3 

15%: TST (SP)+ 3 
TST (SP )-« 3 

16%: BIT @#6ITO6 .OCSR F 
BNE $ 3 
MOV ° ° 
BIC #177700 ,R2 ; 
CMP @77,Re 3 
BEQ 20% $ 
BIS @6IT06 .OCSR 3 
BR g 3 

208: 61S #8ITO3,0CSR 3 
MOV 025 ° 3 
TST a1 3 
ERROR +37 $ 
BR 26% 3 

25%: TST (SP )- 3 
TST (SP )- 

268: sIc @BITO6!:BITOS.D0CSR 8 
MOV $TMPO,ERRVEC 3 
BR TST34 ss; EXIT TE 


M6 


. DO FOR NEXT ROM 


SAVE TIMEOUT VECTOR 

POINT NEW TO PROGRAM 

TRY TO WRITE TO 1ST PAGE OF ROM 
WRITE ACCESS TO ROM’S DIDN'T TIMEOUT 


RESTORE STACK 
OUT OF STANDALONE MODE? 
IF NOT, EXIT TEST 

MAKE SURE THAT 


. BRANCH 
DO 1 MORE TIME IN STANDALONE MODE 


OISABLE UBA ROM RESPONSE 

POINT NEW TIMEOUT VECTOR 

READ BOOT ROM 

DSCR<3> DIDN'T DISABLE UBA ROM 


RESTORE STACK 
LEAVE STANDALONE MODE 


RESTORE STACK 
st 


NROM: .ASCIZ /ADDRESS CF EMPTY UBA SOCKET / 


SEQ 0077 
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SEQ 0078 
TEST - UNIBUS MEMORY TEST 
3154 .SBTTL TEST - UNIBUS MEMORY TEST 
3155 
3156 3@ THIS TEST READS KMCR<S-0> TO FIND OUT HOW MUCH UNIBUS MEMORY IS 
3157 3@ AVAILABLE. THEN ALTERNATING O'S AND 1'S WILL BE WRITTEN AND READ 
3158 3@ FROM MEMORY. IF THE SYSTEM CONTAINS ALL UNIBUS MEMORY, THE FIRST 
3159 3@ 32K ARE NOT "GOING TO TEST ED. 
3160 8 
3161 ; BGNTST 
3162 3 IF KMCR<5-0> = <0-0> THEN NO UNIBUS MEMORY 
3163 : EXIT TEST 
3164 : ENDIF 
3165 ; IF KMCR<5-0> = <1-1> THEN ALL UNIBUS MEMORY 
3166 : . LET R1 = 01600 LOWER BOUNDARY FOR PAR 
art 3 LET R2 = #7600 HIGH BOUNDARY FOR PAR 
1 3 
3169 3 LET Ri = COMPLEMENT(KMCR<4-0>) 
3170 3 LET Ri = Rl SHIFT.LEFT BY #7 TO GET LOWER BOUNDARY PAR 
3171 3 LET R2 = #7600 HIGH BOUNDARY 
3172 8 IF KMCR<S> = @0 THEN 22 BIT MODE 
3173 : . « LET RI = R1 SET.BY OBITIS!BIT14!GIT13!:8IT12 FOR 22 BITS 
3174 : . . LET R2 = R2 SET.BY OBITIS:BIT14!BIT13!:BIT1i2 
3175 8 . ENDIF 
3176 3 ENDIF 
3177 3 LET MMRO<O> = #1 TO ENABLE MMU 
3176 3 REMAP PROGRAM AREA 
3179 3 DO FOR KIPAR6 FROM R1 TO R2 
3160 : . ve FOR R4 FROM ny sD TO #157776 BY #2 FOR 4K THRU KIPAR6 
3161 ; 4 (R4) = 6125252 TO WRITE A PATTERN 
3182 3 . IF (R4) NE @125252 THEN 
3183 3 : ERROR IN UNIBUS MEMORY 
3184 F . ENDIF 
3185 3 . LET (CR4) = COMPLEMENT <(R4)> 
3186 : . IF (R4) NE 52525 THEN 
3187 ; . . ERROR IN UNIBUS MEMORY 
3188 3 - END 
eo 3 ENDDO 
a 3 
3191 ; DISABLE MMU 
3192 ; 
3193 : ENDTST 
3194 F 
3195 Brrr nn ee ne nn nn ee en en eee nn ne nee nn ee ne ene ee eee eee ee aoe e eee ee ee eee e--- 
3196 
3197 fF SSSSSSSSSSSESSSESSSSSESSESESSESEESESESEEEEEEESEEEEEEEEEEEEEEEES 
s*TEST 34 UNIBUS MEMORY TEST 
§ 5 OOS60000066000006660S6SSSSSSSSESESSEEEREEEREDESEREDESESEDEEEESS 
013634 000004 TST34: SCOPE 
3198 
3199 3 
oo ; CHECK IF ALL NON-UNIBUS MEMORY 
3 
3202 013636 ©32737 GOOO37 177734 BIT #37 ,KMCR ; BITS <5-0O> CLEAR? 
3203 013644 001473 BEQ TST35 83 IF YES, SKIP TEST 
3204 $ 
3205 ; CHECK IF ALL UNIBUS MEMORY 


3206 $ 
3207 013646 013701 177734 MOV KMCR ,R1 3; SAVE KMCR 
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177700 
000077 


001600 
007600 


002424 


177734 


172516 


172354 


BIC 177700,R1 3 LEAVE ONLY <5-0> 
CMP @77,R1 s BITS <S-0O> AL SET? 
BNE is s IF NOT, BR 
MOV #1600 ,R1i s OON'T TEST FIRST 32K 
MOV #7600 ,R2 ry CONF IGURATION 
aR 2s s GO OO TEST 
18: JSR PC ,UMSIZ s SIZE MEMORY 
F 
3 ON RETURN R2 HAS PAR VALUE FOR UNIBUS MEMORY 
3 
MOV R2,R1 s STORE LOWER BOUNDARY 
MOV #7600 ,R2 3s MIGHER BOUNDARY 
BIT @BI TOS ,.KMCR : 16 BIT MODE? 
oe s IF YES, GO 00 TEST 
BIs #170000 ,R1 s EXTEND 10 22 BITS 
BIS #170000 ,R2 s FOR HIGHER BOUNDARY T00 
6zs eBITO4, HRB s ENABLE 22 BIT MAPPING 
: NOW WRITE MEMORY WITH 01 PATTERN, VERIFY IT AND DO THE SAME FOR 10 PATTERN 
3 
2s: = PC ,MAPPR 3 REMAP oe TO FIRST 32K 
8 
MOV R1  KIPARG s START AT LOWER BOUNDARY 
38: MOV #140000 ,R4 s . START 4K PAGE 
4s: MOV 125252 .,(R4) 3 . . WRITE FIRST PATTERN 
CoP 0125252 ,(R4) 8 . WRITEN OK? 
BEG $8 3 © o IF a, 
ERROR +34 P . IN UNIBUS MEMORY 
St: COM (a4) : . . COMPLEMENT INITIAL PATTERN 
Cr 052525 ,(R4) 3 . NEW PATTERN OK? 
BEQ ét 3 IF Ox, 
ERROR 34 3s . . IN UNIBUS MEMORY 
68: TST (R4)o 3 . . GET NEXT MEMORY LOCATION 
Crop #160000 .R4 3 . LAST ONE IN 4K PAGE? 
BHT 4st 3 IF NOT, SR 
ADO 0200 , KIPARG 3s . GET NEXT PAGE 
cop R2 , MIPARG 3: . LAST PAGE DONE? 
Sxl 3¢ 3 IF NOT, BRANCH 
CLR s DISABLE Mew 


THE FOLLOWING TESTS REQUIRE THE USE OF 
TO TEST OUT THE UNIBUS ADAP 


THE PROGRAM 
SYSTEM. DEPEND 


HE UNIBUS ay 


TER re. SOME TESTS REQUIRE ONE 


UBE OTHER TESTS REQUIRE TVD UBE'S 


WILL AUTOSIZE TO SEE HOW MANY UBE‘’S ARE IN THE 
ON THE RESULTS OF THE AUTOSIZING CERTAIN 


ING 
TESTS WILL BE SELECTED OR DESELECTED. 


SEQ 0079 


KTJ11-8 DIAGNOSTIC 
TEST - UBE AUTOSIZING ROUTINE 


3263 


PEP EPEEEP ET LT Et: 


B888 


3314 014052 
3315 014056 


= x 
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SEQ 0060 


-SBTTL TEST - UBE AUTOSIZING ROUTINE 


3@ THE FOLLOWING ROUTINE IS USED TO AUTOSIZE THE NUMBER OF 
3¢ UBE’'S PRESENT IN THE SYSTEM. 


§ § SSOSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSHSSHSSSSSHSSSSSESSHSSSSSSSSSEEES 


seTEST 35 UNIBUS EXERCISER AUTOSIZING ROUTINE 
§ J OCCOOCSOSSSSESESESEOESEEEEEEEEEESOESESEESEESESEEEESEESEOSEEEEES 
TSTSS: SCOPE 


BIC @81T06,0CSR 3 MAKE SURE THAT OUT OF DIAGN. MODE 
BIC O8IT0S ORS 1 MAPPING DISABL 

s IS THIS THE FIRST PASS ? 

s NO, THEN NO NEED TO SIZE AGAIN 


TST GOsPASS 
BNE 106 


- | 
3 

3: ®BGNTST | 
: } 
3 LET RO := #170000 31ST UBE ADORESS 

8 LET R2 := #510 51ST UBE VECTOR 

3 LET R1 :* @BE106 sTABLE FOR 1ST UBE 

; LET R3 :* @BE1VEC sLOCATION FOR FIRST UBE VECTOR 
3 LET 4 ;2= @TOUT sSETUP TIMEOUT VECTOR 

3 DO FOR RO :* @170000 TO 170160 BY 20 

3 . TEST FOR (RO) sWILL TIMEOUT IF NOT THERE 

F IF TIMEOUT OCCURS THEN 

3 * , god Fe sGET NEXT UBE ADDRESS 

F . LET R2 s* R2 + sGET NEXT UBE VECTOR LOCATION 

3 LET (SP) := ecreck 

3 ELSE 

32% 

3@ ASSIGN THE UBE ADDRESSES TO THE CURRENT UBE TABLE 

38 

3 00 FOR R4 :*= 1 TO 5 BY 1 

’ LET (R1)> := RO 

3 LET RO :* ROo2 

3 ENDOO 

3 LET RO := RO + 4 sPOINT TO LAST DEVICE ADORESS 

8 LET (R1)>+ := RO 

3 LET RO :*= RO + 2 sPOINT RO TO NEXT UBE ADORESSES 

3¢ 

s@ ASSIGN UBE VECTORS TO CURRENT UBE TABLE 

3¢ 

3 LET (R3)>+ :* R2 3GET POINTER TO VECTOR ADORESS 

3 LET R2 :* R2 + 2 sGET VECTOR PSW LOCATION 

3 LET (R3)- 2° ~s 3sGET POINTER TO VECTOR PSw 

8 LET R2 :* R2 + iGET NEXT VECTOR ADORESS 

3 TF We WAVE FOUN TO UBE'S TEN 

3 ‘ EXIT TEST 

3 ‘ IF 

3 ENDIF 

F 

s 

8 
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T3S 


330 014112 


3340 014136 


014170 
014176 
014200 


3368 

3369 014202 
3370 014210 
3371 014214 
3372 014216 


012700 170000 
012702 000510 
012701 002150 
012737 014106 
005710 
000412 
062706 900004 
020027 170160 
001431 
062700 000020 
mrt 000004 
012704 000005 
010021 
005720 
077403 

700 000004 
010021 
005720 
010221 
005722 
010221 
005722 
005237 001722 
022737 000002 
001401 
000740 
012737 002234 
005737 001722 
001002 
000137 022740 
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UNI@US EXERCISER AUTOSIZING ROUTINE 


‘ 
s INITIALIZE POINTERS FOR AUTO-SIZING 


Ov @1 70000 , RO 
"OV #510 ,R2 
mov @BE 108 ,Ri ' 
900004 MOV 016,804 
10¢s: TST (RO) i 
Be ob @« 


18: ADO 4 ] 
cee RO, 0170160 ’ 
ere ¢ ’ 
ADO #20 ,RO 3 
OG @4 ,R2 8 
GR 100% r 


s GET ADDRESS OF FIRST POSSIBLE UBE 
3 i VECTOR OF FIRST 


POSSIBLE UBE 
HEADER FOR 1ST UBE 


’ ser ww MD gy gd VECTOR 
. IS THERE A 


UBE HERE ? 
. VES, THEN BRANCH AROUND TOMEOUT ROUTINE 


: 
3 ASSIGN \GE ADORESSES TO THE CURRENT UBE TABLE 
H 


2s: OV 0. R4 a. 

38: MOV RO,CR1)> i « 
TST (RO)-> Bs 
$08 R438 Ss 
AGO @4,RO Sick 
MOV RO, (R1)« te 
TST (RO)+ 8. 

o 

s ASSIGN UBE VECTORS TO CURRENT UBE 

a 
MOV R2,(R1)> 8 
TST (R2)6 ; 
MOV R2,CR1)o 8 
TST CR2)-¢ 3 
Inc UBECT 3 


| SEE IF ME HAVE FOUND TWO UBE’S 


001722 chp #2, UBECT is 
BEQ 10% a % 
BR 100% 


é 
s PROGRAM WILL CHECK IF ANY UBE'S 


000004 10%: MOV OTIMOUT , 864 
TST UBECT ’ 
BNE TST36 us 
JMP UBEM 3 


SET W LOOP COUNTER 

- ASSIGN AN ADDRESS TO THE POINTER 
. GET THE NEXT ADDRESS 

ARE WE DONE ? NO THEN GO GET NEXT ADORESS 
POINT RO TO LAST UBE ADDRESS 


ADDRESS INTO THE POINTER TABLE 
POINT RO TO NEXT UBE ADDRESS 


TABLE 


T POINTER TO VECTOR — 


| GET THE MEXT UBE’S VECTOR ADORESS 
‘ THER UBE 


WERE FOUND 


s RESTORE TIMEOUT VECTOR 
WAVE ANY UBE'S BEEN 


FOUND ? 
GO DO THE are TESTS FOR 1 UBE 


SKIP ALL THE UBE TESTS 


SEQ 0061 
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TEST - NPG ARBITRATION 
3374 -SBTTL TEST - NPG ARBITRATION 
3375 ; ; 
3376 s@ THIS TEST CHECKS THAT A NPG CAN BE GRANTED AT ANY PRIORITY OF THE CPU. 
3377 s¢ 
3378 ‘ 
3379 + 6GNTST 
3380 ; 
3381 H DO FOR PSW FROM #340 DOWNTO €0 BY #40 
3382 ’ . LET SBEICC = -1 TO DO 1 CYCLE 
3383 : . LET SBEIBA = @¢TMPO FOR THE ADDRESS 
3384 H . LET SBEICR1 = 02041 TO DO 1 DATI 
3385 3 . WAIT FOR GBE1CR1<7>=1 READY 
3386 : . IF @BE1CC EQ -1 THEN 
3387 H - . _ERROR NPG DIDN'T HAPPEN 
3388 : . END 
3389 ; ENDDO 
3390 ; 
3391 s ENDTST 
3392 ; 
3393 Boren cen meee wen cewwec ccc cece cccwc cess cncee eee cosccccenne 
3394 
3395 3S SOSSSOSSSSSSSSSSSSSOHSSSEEHSSEEHESHSSEEEEESEHEEHSEEESEEEESEEEEEEEEE 
s*TEST 36 NPG ARBITRATION 
§ J SSCHOSSSSSSESSSSSSSSSESSSHESESESESESSESSSSEESEEHESEEEEEEESEEESEEE 
sees 014222 000004 TST36: 
3397 014224 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
3398 014230 012737 000340 177776 MOV 0340 ,PSW s STORE PRIORITY 7 
3399 014236 012777 177777 165706 1%: MOV @-1,8BE1CC ; . 00 FOR 1 CYCLE 
3400 014244 012777 001160 165702 MOV . SBE s . STORE ADORESS FOR DATI 
3401 014252 012777 002041 165676 MOV 02041 ,@BE1CR1 : . DO 1 DATI AT NPG 
3402 014260 105777 165672 2%: TSTB 1 3 . READY ON? 
3403 014264 100375 BPL 26 s . . WAIT FOR READY 
3404 014266 022777 177777 165656 Chop @-1,@BE1CC s . CYCLE COUNT INCREMENTED? 
3405 014274 001001 BNE 38 s . IF YES. BRANCH 
3406 014276 104032 ERROR +32 8 WO, ERROR 
3407 014300 162737 000040 177776 3%: SUB 40 ,PSW 3 . DECREMENT PRIORITY 
3406 014306 022737 000000 177776 ChMP #0 PS 3s . LAST ONE? 
3409 014314 003750 BLE 1% s . IF NOT, BRANCH 
3410 014316 012737 000340 177776 MOV 0340 ,PSwW : RESTORE PRIORITY 


3411 


F7 
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SEQ 
TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY se 
3413 .SBTTL TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
3414 3 
3415 3@ THIS TEST CHECKS THAT NO BUS REQUESTS ARE GOING TO BE HONORED 
3416 3@ WHEN THE PROCESSOR HAS HIGHER PRIORITY THAN THE REQUESTING DEVICE. 
341 3% 
3418 3 
3419 ; ®BGNTST 
3420 Hy 
3421 : SET UP SBE1VEC TO Avy TO ERROR_CHECK_ROUTINE 
of 3 SET UP SBE1PSW TO @ 
3% 
$424 3¢ TRY TO DO BR7 WITH CPU PRIORITY AT 7 
3¢ 
3426 : LET @BEICRi = #21 TO DO 1 DATI 
3427 : LET PSW = #340 TO SET PRIORITY AT 7 
3428 3 DO “NOP” 
3429 : IF INTERUPT THEN 
3430 : . ERROR 8G7 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3431 ENDIF 
3432 3 
3433 3¢ 
ae 3¢ TRY TO DO BR6 WITH CPU PRIORITY AT 7 - 6 
ge 
3436 ; DO FOR R3 FROM 340 DOWNTO #300 BY #40 
3437 : . LET SBEICR1 = #11 TO DO 1 DATI 
3438 ; . LET PSW = R3 TO CHANGE PRIORITY 
RQ ag 3 . oO 
3440 5 . IF INTERRUPT THEN 
3441 3 . «+ ERROR BG6 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3442 : . ENDIF 
3443 : ENDDO 
coon 3 LET PSW = #340 FOR THE NEXT PART 
3% 
poet 3¢ TRY TO DO BRS WITH CPU PRIORITY AT 7 - 5 
3% 
3448 ; DO FOR R3 FROM #340 DOWNTO 0240 BY #40 
3449 ; . LET @BEICR1 = #5 TO DO 1 DATI 
3450 : . LET PSW = R3 TO CHANGE PRIORITY 
3451 ; 00 “NOP” 
3452 ; . IF INTERRUPT THEN 
3453 , . « ERROR BGS GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3454 ; ENDIF 
3455 5 ENDOO 
3456 5 LET PSW = #340 
3457 3% 
5e3e 3@ TRY TO DO BR4 WITH CPU PRIORITY AT 7 - 4 
3% 
3460 : DO FOR R3 FROM @340 DOWNTO #200 BY 40 
3461 ; . LET @BEICR1 = #2003 TO DO 1 DATI 
3462 : . LET PSW = R3 TO CHANGE PRIORITY 
3463 ; . OO “NOP” 
3464 ’ . IF INTERRUPT THEN 
3465 ; . « ERROR BR4 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3466 i ENDIF 
3467 3 
3468 3 
$b 


ENDTST 
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SEQ 0084 
TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
3470 ; 
3471 taal 
7 

save 8S SSSHSSSSSSSSSESSSSHHSSSESSESSSHSSSSSSSSEHSSHESSESESSEEESHEESEEEEEEES 

s@TEST 37 BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 

. 8 F SSSSSSHSSSSHSSSSSSHESSSSSHSSHSSASSHESSSSEESEESEEHEESEEESEEEEEEEEEE 
014324 000004 TST37: 
74 

3475 014326 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
3476 014332 012737 000340 177776 MOV 0340 ,PSW 3s SET CPU PRIORITY AT 7 
3477 014340 012777 000340 165620 MOV 0340 , BE 1PSW 3 AT PRIORITY 7 
3478 3 
3479 3: TRY TO DG BR7 WITH CPU PRIORITY AT 7 

3 
3481 014346 012777 014366 165610 MOV #1% ,@BE1VEC s POINT UBE VECTOR TO PROGRAM 
3462 014354 012777 000021 165574 MOV #21 ,8BE1CR1i 3s BR7 WITH FUNO 
3483 014362 000240 NOP 3s JUST IN CASE 
3484 014364 000405 BR 2s 8 IF NO INTERRUPT 
3485 014366 005077 165564 is CLR @BE1CR1i 3 ANY OTHER REQUESTS 
3486 014372 062706 ADO 04 ,SP 3s ADJUST STACK POINTER 
3487 014376 104032 ERROR 32 : 8G7 GRANTED WITH CPU AT 7 
aoe 3s TRY TO OO BRE WITH CPU PRIORITY AT 7-6 

3 
3491 014400 012777 014430 165556 2%: MOV a > Saat s POINT UBE VECTOR TO PROGRAM 
3492 014406 012703 000340 MOV G 3 START WITH PRIORITY AT 7 
3493 014412 012777 000011 165536 3%: MOV 911 aBE1CRI s . BR6E WITH FUNO 
3494 014420 010337 177776 MOV R3,PSW 3 . CHANGE PRIORITY 
3495 014424 woP 3 . JUST IN CASE OF INTERRUPS 
3496 014426 Be 5% 3s . IF NO INTERRUPS. BRANCH 
3497 014430 005077 165522 84h CLR @BE1CR1 : . CLEAR ANY OTHER ee 
34986 014434 062706 000004 ABD SP 3: . ADJUST STACK POINT 
3499 014440 1040 ERROR 32 : . BG6 GRANTED UIT CPU AT 6-7 
3500 014442 162703 000040 5$: Sue 040 ,R3 3 . LOWER PRIORITY 
3501 014446 020327 000300 CMP R3, #300 s . LAST ONE TO CHECK? 
3502 014452 002357 BGE 3% 3: . IF NOT, BRANCH 

3 

3 TRY TO DOO BRS WITH CPU PRIORITY AT 7-5 

3 
3506 014454 012777 014504 165502 MOV 07% ,@BE1 VEC 3: POINT UBE VECTOR TO PROGRAM 
3507 014462 012703 000340 MOV 0340 ,R3 3 START WITH PRIORITY AT 7 
3506 014466 012777 000005 165462 6%: MOV #5, SBE1CR1 3: . BRS WITH FUNO 
3509 014474 010337 177776 MOV »PSW 3 CHANGE PRIORITY 
3510 014500 NOP s . JUST IN CASE OF INTERRUPS 
3511 014502 BR 83 PF ° 
3512 014504 005077 165446 7: CLR @BE1CR1 F CLEAR ANY OTHER oe 
3513 014510 062706 000004 ADO SP 3 ADJUST STACK PO 
3514 014514 1040 ERROR +32 3 BGS GRANTED WITH CPU AT 5-7 
3515 014516 162703 000040 63: SUB 040 ,R3 F LOWER PRIORITY 
3516 014522 020327 000240 CMP R3, 0240 3 . LAST ONE TO CHECK? 
or. 014526 002357 BGE 6% : . IF NOT, BRANCH 
a4 s TRY TO DO BR4 WITH CPU PRIORITY AT 7-4 

$ 
3521 014530 012777 014560 165426 MOV 010% , @BE1VEC s POINT UBE VECTOR TO PROGRAM 
3522 014536 012703 000340 MOV 6340 ,R3 : START WITH PRIORITY AT 7 
3523 014542 012777 000003 165406 9%: MOv 43, @BE1CR1 : . BRE WITH FUNO 
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SEQ 
137 -—sNO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 08s 

3524 014550 010337 177776 MOV R3,PSW + . CHANGE PRIORITY 

000240 NOP s . JUST IN CASE OF INTERRUPS 
3526 014556 0004605 BR 11% s . IF NO INT ’ 
3527 014560 005077 165372 10¢: CLR SBE 1CR1 + . CLEAR ANY OTHER REQUESTS 
3526 014564 062706 000004 ADO SP s . ADJUST STACK POINTER 
3529 014570 104032 ERROR +32 i . 664 WITH CPU AT 4-7 
3530 014572 162703 000040 11% SUB 040,.R3 + . LOWER PRIORITY 
3531 014576 020327 000200 CmP R3, #200 s . LAST ONE TO oecn? 
3532 014602 002357 BGE 98 : . IF NOT, BRANCH 
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TEST - BR7-BR4 ARBITRATION 


-SBTTL TEST - BR7-BR4 ARBITRATION 


3@ THIS TEST CHECKS THAT BR7-BR4 INTERRUPTS CAN OCCUR WITH A PROCESSOR 
3@ PRIORITY AT A LOWER LEVEL 
7% 
° 
BGNTST 


SET UP SBE1PSW TO #340 
® 
* TRY TO DO BR7 WITH CPU PRIORITY AT 6 - O 
e 


; 
: 

: 

: 

: 

: 

; DO FOR R3 FROM #300 DOWNTO #0 BY 040 
F . LET PSW = 0340 

$ . LET SBEICR1 = 21 TO DO 1 DATI 

F LET PSW = R3 TO CHANGE PRIORITY 
3 00 “NOP” 

: 

: 

$ 

: 

; 


IF NO INTERRUPT THEN 

- .» ERROR 6G7 DOESN'T OCCUR 

. ENDIF 

ENDDO 

e 

3@ TRY TO DO BRE WITH CPU PRIORITY ATS - O 

3% 

F DO FOR RS FROM €240 DOWNTO @0 BY #40 

8 - LET PSW = 0340 
LET SBE1CR1 = eth TO 0O 1 DATI 
| ha F, * RS CHANGE PRIORITY 


Ba 
st ace 
8 
: 


fe TRY TO DO BRS WITH CPU PRIORITY AT 4 - 0 


3% 

“essca mm 
LET SBEICRi = #5 TO DO 1 DATI 
LET PSu = TO CHANGE PRIORITY 


TRY TO DO BR4 WITH CPU PRIORITY AT 3 - 0 
watt B~ Apo *- enemmenrtctiatalien 


LET SBEICRi1 = #3 TO DO 1 DATI 

LET PSW = RS TO CHANGE PRIORITY 

00 “NOP” 

IF NO INTERRUPT THEN 

. ERROR BG4 DOESN'T OCCUR 

ENDIF 
ENDOO 


i 
; its 
: 


m 


ee a eee iC Ce aa SS 
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TEST - BR7-BR4 ARBITRATION 


177776 
165276 


002450 
015040 
000200 
000340 


000005 
177776 


165122 


165346 


165336 


177776 
165310 


165250 


177776 
165222 


165162 


177776 
165134 


3S SSSSSSSSSSSSSSSSSSSSSHESSESESSHHESHHESSESSESEEEHEEEEEEEEEEEEEEEESE 


s*TEST 40 BR7-BR4 ARBITRATION 


3S SSSSSSSSSSSHSSSSSSHSSSSSHSESSESESESSKSEEAESEEEEEEEEEEEHEEEESEEEESEEES 


TST40: 


PC, IUBE 
#340 , SBE 1PSW 


3% 


é 
; TRY TO DO BR7 WITH CPU PRIORITY AT 6-0 


; 
02% ,@BE1VEC 


18: 


Rass gb Sseess 


oe 

F) 
~ 
=" 
So 
& 
5 
=) 
=x 
3B 
al 
z 
~ 
~ 
< 
> 
= 
uw 
So 


5%: 
6%: 


RIBS SRE SSSSSe8 


$ 
s TRY TO DO BRS WITH CPU PRIORITY AT 4 


7: 


PEELED 
: 
: 


ee 
. 
2 


-0 


s INITIALIZE THE UBE 
3 AT PRIORITY 7 


INITIALIZE THE UBE 
POIN 


POINT UBE VECTOR TO PROGRAM 
ee WITH PRIORITY AT 6 
a yy TO 7 


BR7 WITH FUNO 
LOWER PRIORITY 
IN CASE 


; LAST ONE TO CHECK? 
. IF NOT, BRANCH 


raed aaa THE UBE 


CTOR TO PROGRAM 


INT UBE VE 
START WITH PRIORITY AT S 


. RAISE PRIORITY TO 7 
BR6 WITH FUNO 


LOWER PRIORITY 
JUST up 
. BR6 NOT T GRANTED WITH CPU AT 5-0 


. DON'T ADJUST ST 
. ADJUST STACK POINTER 


T UBE VECTOR TO PROGRAM 


START WITH PRIORITY AT 4 
. RAISE PRIORITY TO 7 


. INTERRUPS 
. CLEAR ANY OTHER REQUESTS 
. BRS NOT GRANTED WITH CPU AT 4-0 
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T40 BR7-BR4 ARBITRATION 
3647 015036 BR ot 
3648 015040 706 000004 8%: ADD 4 ,SP 
3649 015044 162703 000040 9%: SUB #40 ,R3 
3650 015050 022703 000000 CMP #0 ,R3 
aere 015054 002354 BGE 7$ 

; 
ars s TRY TO DO BR4 WITH CPU PRIORITY AT 3-0 
i 

3655 015056 004737 so JSR TUBE 
3656 015062 012777 015126 165074 MOV 11% , @BE1VEC 
3657 015070 012703 000140 MOV #140,R3 
3658 015074 012737 000340 177776 10%: MOV #340 , PS 
3659 015102 012777 000003 165046 MOV #3, SBE1CR1 
3660 015110 010337 177776 MOV »PSW 
3661 015114 NOP 
3662 015116 005077 165034 CLR @BE1CR1 
3663 015122 104032 ERROR +32 
3664 015124 BR 12¢ 
3665 015126 062 000004 118: ADO o4 SP 
3666 015132 162703 000040 12%: SUB #40 ,R3 
3667 015136 022703 000000 CMP #0,R3 
3668 015142 002354 BGE 108 


. DON’T TOUCH STACK 
: IF NOT, 


INITIALIZE THE UBE 

POINT UBE VECTOR T 

START WITH PRIORITY AT 3 

- RAISE PRIORITY TO 7 
WITH FUNO 


O PROGRAM 


L/ 
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SEQ 00869 
TEST - ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S } 
3672 -SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S 
3673 
3674 8 THIS TEST gvs4 erm PIRQ REQUESTS OVERRIDE INTERRUPT REQUESTS 
3675 « OF THE SAME L 
3676 ° 
3677 3 SET UP SBEIVEC ant PIRQVEC AND PRIORITY FOR BOTH 
3678 : LET R1 = #20 FOR 8G7 FROM UBE 
3679 ; LET R2 = #100000 FOR PIRQ7 
3680 3 DO FOR R3 FROM #300 DOWNTO #140 BY #40 
3681 3 . LET PSW = 0340 
3682 3 LET @BE1CR1 = R1 FOR INTERRUPT LEVEL 
3683 3 LET S8E1CR1 = SBEICR1 SET.BY #1 TO DO 1 DATI 
R654 3 LET PIRQ = PIRQ SET.BY R2 FOR PIRG LEVEL 
3685 3 LET PSW = R3 TO CHANGE PRIORITY 
3686 F WAIT FOR 
3687 3 IRQ INTERRUPT DIDN'T HAPPEN OR SBEICC NE -1 THEN 
3688 3 ERROR IN ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 
3689 3 ENDIF 
3690 3 LET R1 = R1 SHIFT RIGHT 1 
3691 3 LET R2 = R2 SHIFT RIGHT 1 
3692 3 
3693 3 
3634 3s ENDTST 
3695 3 
3696 Borer e cree cceccccoccerow cc ccocccccccocccocccccen cocccccccce 
3697 
3698 Miriiitiir ri itiiitiriitfiTiiitiiiiiririiirriiiiitititiiiititT tt ttt 
s*TEST 41 ARBITRATION BETWEEN INTERRUPTS AND PIRQ'S 
ff SSSSOHSSSSSSSSSSSSSSSSSSESSSSSESEESEESESESEESESEESEEESEEEEEEEES 
015144 00004 TST41: SC 
3699 015146 004737 002450 JSR PC, TUBE 3: INITIALIZE THE UBE 
3700 015152 012777 015242 164776 MOV @2¢ ,@BE1CR1 3 UBE VECTOR TO PROGRAM 
3701 015160 012777 000340 165000 MOV 0340 , SBE 1PSwW 3: AT PRIORITY 7 
3702 015166 012737 015252 000240 MOV 03% ,.PIRQVEC ; POINT PIRQ VECTOR TO PROGRAM 
3703 015174 012737 000340 000242 MOV 0340 , 80242 3 AT PRIORITY 7 
015202 012701 000020 MOV @20,R1 3s ST FOR BR7 
3705 015206 012 100000 MOV #100000 .R2 3 STORE FOR PIRQ 7 
poet 015212 012703 000300 MOV 0300 ,R3 3 START WITH PRIORITY 6 
3 
tae 3: DO ARBITRATION FOR LEVEL 7-4 
3 
3710 015216 012737 000340 177776 i18%: MOV 0340, 3 . START WITH PRIORITY 7 
3711 015224 010177 164726 MOV R1,@BE1CR1 3 CHANGE UBE PRIORITY 
3712 015230 010237 177772 MOV Re, PI F CHANGE PIRQ PRIORITY 
3713 015234 010337 177776 MOV R3,PSW 3 LOWER CPU PRIORITY 
3714 015240 000001 WAIT 3; . WAIT FOR INTERRUPT 
3715 015242 062706 000004 2s: ADO o4,SP 3: . CLEAN UP STACK 
3716 015246 104032 ERROR 32 3; . PIRQ’S DON'T TAKE PRIORITY 
3717 015250 BR 48 3; . DON'T CLEAN UP STACK TWICE 
3716 015252 062706 000004 34: ADO @4 ,SP : . CLEAN UP STACK 
3719 015256 006001 4s: ROR R1 3; . ADJUST BR FOR UBE 
3720 015260 006002 ROR R2 3; . ADJUST PIRQ'S 
3721 015262 162703 000040 SuB 040 RS : . LOWER FOR CPU PRIORITY 
3722 015266 022703 000140 CMP #140,R3 3s . PRIORITY 3? 
3723 015272 001351 BNE 1$ 3 BRANCH IF NOT YET 
3724 015274 005037 177772 CLR PIRQ : CLEAR ANY REQUESTS 











M7 
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Q@ 0090 
TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
3726 .SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
3727 
3728 3@ THIS a Be THAT WHEN TWO INTERRUPTS FROM DIFFERENT UBE'S 
3729 3@ COME IN AT THE SAME TIME, THE BUS IS GRANTED TO THE REQUEST WITH HIGHER 
3730 3@ PRIORITY. 
3731 38 
3732 3 
3733 3 BGNTST 
3734 3 
3735 3 IF UBECT NE @2 THEN THERE'S NO 2ND UBE 
3736 3 EXIT TEST 
3737 3 ENDIF 
3738 : SET UP VECTORS AND PSW FOR BOTH UBE'S 
3739 3 LET R1 = 20 FOR BR7 
3740 3 DO 3 TIMES FOR 8G7-BG6, 8G6-8G5,8G5-B8G4 
3741 3 . LET PSW = 0340 FOR PRIORITY 7 
3742 3 . LET SBEICRI = Ri 
3743 3 . LET R1 = Ri SHIFT RIGHT 1 
3744 3 . LET SBE2ZCR1 = R1 TO SET PRIORITY OF 2ND UBE 
3745 3 . LET @SIMLGO = #1 TO 0O SIMULTANEOUS “GO” 
3746 3 . LET PSW = 6140 TO LOWER PRIORITY FOR INTERRUPTS 
3747 3 . WAIT FOR INTERRUPTS 
3748 3 . IF INTERRUPTS FROM 1ST HAPPENED AFTER OND THEN 
3749 F . . ERROR IN BR ARBITRATION 
3750 3 . ENDIF 
3751 3 ENDDO 
3752 3 
3753 3 ENDTST 
3754 3 
3755 Brn nn nn nn nn nn en nn nn nn ee ee en ee ee ee ee eee ee ee eee 
3756 
3757 
3758 ff SSSSMESSSSHASKRESHESKSHSESHSSAEESHRSEHASHHSSASHDSSHRSARE SL SHSHKAAASEEEE 
3*TEST 42 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
fp SSSOCHSLESHOASCSESHARECHSHASHASCHSASRARSEHRSASHHREEHSESEARSHASHHASSEK SHES 
— 015300 000004 TST42: SCOPE 
3760 015302 022737 000002 001722 CMP @2,UBECT ; 2 UBE'S? 
3761 015310 001112 BNE TST43 83 EXIT, IF NO 
as | 015312 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
8 
one s INITIAL SETUP 
3 
3766 015316 012703 000240 MOV 0240,R3 3; START AT PRIORITY 6 
3767 015322 012701 mov 3; UBE AT LEVEL 7 
3768 015326 012777 015476 164630 MOV @GE1SV , SBE1VEC ; POINT UBE1 VECTOR TO PROGRAM 
3769 015334 012777 164624 MOV 0340 , 6BE1PSwW 3; AT PRIORITY 7 
3770 015342 012777 015516 164634 MOV @BE2SV , BBE2VEC ; POINT UBE2 VECTOR TO PROGRAM 
ores 015350 012777 164630 MOV 0340 , SBBEQPSW ; AT PRIORITY 7 
3 
hk ; ARBITRATE BETWEEN 2 INTERRUPTS OF DIFFERENT LEVEL 
3 
3775 015356 012737 000340 177776 18: MOV 6340 ,PSW ; . RAISE PRIORITY TO 7 
3776 015364 010177 164566 MOV R1,8BE1CR1 3; . MIGHER PRIORITY TO UBE1 
3777 015370 006001 ROR Ri ; . GET LOWER PRIORITY 
3776 015372 010177 164600 MOV : . LOWER PRIORITY TO UBE2 
3 


R1,@BE2CR1 
3779 015376 052777 000001 164552 BIS @6IT00, @BE1CR1 


. SET GO BIT OF UBE 1 





N7 
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T42 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 


3780 015404 052777 000001 164564 BIS @B8ITOO, BBE2CR1 ; . SET GO BIT OF UBE e2 

3781 015412 010337 177776 R3,PSwW ; . LOWER CPU PRIORITY 

3762 015416 000240 ; . GIVE UBE TIME TO INTERRUPT 
3783 015420 000240 NOP ; 

3784 015422 000240 NOP ; 

3785 015424 005737 001724 TST BELINT ; . OID UBE1 INTERRUPT 

3786 015430 001002 BNE 5% ; . YES, THEN GO MAKE SURE UBE2 DIDN'T 
37867 015432 104032 ERROR +32 ; . LOWER ORDER INTERRUPTS HAPPNE BEFORE 
3788 015434 000404 BR 10% ; . GO SEE IF WE ARE DONE 

3789 015436 005737 001726 S$: TST BE2INT ; . OID UBE2 INTERRUPT 

3790 015442 001401 BEQ 10% ; . NO, THEN GO SEE 1F WE ARE DONE 
3791 015444 104032 ERROR +32 ; . YES, THEN ERROR IN ARBITRATION 
3792 015446 005037 001724 10$: CLR BELINT ; . INITIALIZE INTERRUPT FLAGS 
3793 015452 005037 001726 CLR BE2INT : 

3794 015456 162703 000040 SUB 040 ,,R3 3 . 00 THE NEXT LEVEL 

3795 015462 022703 000100 CMP #100,R3 s . CPU AT 2 (LAST ONE)? 

3796 015466 001333 BNE 1$ : . BRANCH IF NOT YET 

3797 015470 005077 164504 CLR SBE2CLR ; CLEAR ERRORS ON 2ND UBE 

es 015474 000420 BR TST43 33 GO TO NEXT TEST 

3800 015476 012777 000000 164472 BE1SV: MOV #0, @BE2CR1 ; CLEAR PENDING UBE @2 INTERRUPTS 
3801 015504 005237 001724 INC BELINT ; SET BE1 INTERRUPT FLAG 

3802 015510 005037 001726 CLR BE2INT ; CLEAR BE2 INTERRUPT FLAG 

Por 015514 000002 RTI 

3805 015516 012777 000000 164432 ®BE2SV: MOV @0,@BE1CR1 ; CLEAR PENDING UBE #1 INTERRUPTS 
38606 015524 005237 001726 INC BE2INT ; SET BE2 INTERRUPT FLAG 

3807 015530 005037 001724 CLR BE1LINT ; CLEAR BE! INTERRUPT FLAG 
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TEST - POWER DOWN TEST 


013737 
012737 
013737 
052777 
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000024 
015706 


-SBTTL TEST - POWER DOWN TEST 


“ THIS TEST INSURES THAT POWER DGWN CYCLE CAN BE INVOKED FROM THE 
¢ UNIBUS SIDE OF UBA. IT WILL RUN ONLY IF POWER UP OPTION 11 
ie TS SELECTED (TRAP THRU 24/26) IN THE EAROM ON CPU BOARD. 


3: ®BGNTST 

3 

3 LET BCSR<6,5>*<0,1> TO ACCESS EAROM 

3 IF 80165002<7,6> NE <1,1> FOR POWER UP CODE 00 THEN 
3 ExIT TEST 

3 ENDIF 

3 SAVE 

3 POINT PWRVEC TO PROGAM AREA 

’ LET SBEICR2<4> = #1 

3 NO TRAP TO 24 THEN 

3 in EXECUTING POWER DOWN THRU UNIBUS 
3 

3 LET @BE1CR2<4> = 60 FOR POWER UP 

3 RESTORE PWRVEC 

8 

s ENDTST 

3 


BL SSEHOSSSHSSHHSSSSHHOSHHHSSHASSHCSEESHHASEHSHSHHEHSHHHHKSHEHHHHSEEE DELO 


seTEST 43 POMER DOWN TEST 
WErTitiiiiiiiiiiittiiiiiiiiiiiftiiiiiiiitiiiiiiitiiiiiiiiitit itty 
TST43: 
8 
3s RESTRICTIONS ON RUNNING THIS TEST 
3 
TST 6PASS FIRST PASS 
BNE Siga 3sIF NOT 1ST PASS, DON'T OO IT 
BIT 6IT05 8052 ; UF 
BNE TST44 ssEXIT TEST, IF $0 
CHS OAP TENV , SENV ; ? 
Beg tad ssEXIT TEST IF APT 
BIT BI TOS .@0177524 s FORCED CONSOLE MODE? 
BME a4 ssIF VES, EXIT TEST 
BIC @BIT06 .BCSR s ENABLE ACCESS THRU 165000 
BIS @8IT0S.BCSR 3: READ EAROM 
BIT 0861106 . 80165000 3 BATTERY OVERRIDE? 
BEQ TST44 ssIF SO, EXIT TEST 
BIT @BIT07 , 80165002 : POWER UWP CODE 00? 
BEO TST44 ssEXIT TEST, IF NOT 
BIT @BIT06 , 80165002 : POWER WP CODE 00? 
BER TST44 ssEXIT TEST, IF NOT 
JSR PC, IUBE ; INITIALIZE THE UBE 
s DO POWER DOWN SEQUENCE 
3 
MOV PWPVEC , $s TMPO 3 STORE POWER DOWN VECTOR 
MOV 016 ,PURVEC : POINT NEW ONE TO PROGRAM 
MOV PURVEC +2, 8026 : AT PRIORITY 7 
BIS @BIT04 , @BE1CR2 3 START POWER DOWN 


KTJ11-6 DIAGNOSTIC 


Tas 


POWER DOWN TEST 


3865 015676 


3877 015744 
3878 


000402 
012706 
013737 


C8 
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000020 164246 
000004 


015740 
177777 


001100 
001160 


000024 


woP 
NOP 
ERROR +32 
BR 108 
1%; BIC @B1T04 ,@BE1CR2 
ADD o4,SP 
MOV 03% ,PWRVEC 
MOV @177777,R1 
2s: S08 ° 
ERROR +32 
BR 108% 
38: MOV #1100,SP 
108: MOV ¢TMPO , PURVEC 


WAIT WHAT HAPPENED 
NO POWER DOWN FOR THRU UNIBUS 


CLEAR POWER DOW BIT 

ADJUST STACK POINTER 

POINT POWER UP VECTOR 
ROUT INE 


ADJUST STACK 
RESTORE POWER DOWN VECTOR 


SEQ 0093 


¥TIL1-3 OIAGNOSTIC 
TEST - WRONG PARITY TEST 


; 


3861 


CEEEEPEER ERE EELS 2 i. 
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-SBTTL TEST - WRONG PARITY TEST 
3¢ THIS as THAT A WRONG PARITY TRAP CAN BE GENERATED ON 


- oe oe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ©) Ge Ge 


DATI CYCLES 


BGNTST 


SEQ 0094 


SAVE 114 WRONG PARITY y= ee POINT IT TO PROGRAM Anz‘ 


LET MBEICC = -1 TO Pek CYcu 


LET SRE1BA = O¢THPO F 


ADORE SS 
LET @B©1CR2 © SBEICR2 SET.BY @BIT12 TO ENABLE WRONG PARITY 
LET SBELCR1 = tre TO DO 1 DATO FROM BEICC 


IF NO TRAP TO 114 T 
. ERROR GENERA 


RESTORE VECTOR 114 
ENDTST 


TING wi WRONG PARITY TRAP THRU UNIBUS 
SBEICR2 = #0 TO CLEAR WRONG PARITY BIT 


8 F SSHSSSSHSSSSHSSHSSHSSSHSSSHSHSSHSSSSEASHSSHSSSHESHSEHSSHEHHSSE ASESHESEEEEESE 


TEST 44 


WRONG PARITY TEST 


§ J OOSSROSSESESSSSSESESEEEEESESSEOEEEESEEESEEESEESEEESESESEEEEESES 
TST44; SCOPE 


~ 
ee 
ee 


§8333% 


rte 
3 
3 
R 
a 


5238 


INITIALIZE THE UBE 
SAVE PARITY TRAP 


SETUP ADORESS REGISTER 

SET WRONG PARITY BIT 

READ A UBE REGISTER 

SHOULD CAUSE A PARITY TRAP 
NO PARITY TRAP 

CLEAR WRONG PARITY BIT 
ADJUST STACK POINTER 


3953 016116 


KTJ11-8 DIAGNOSTIC 
TEST - NO SACK TIMEOUT 
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164102 
164064 


164044 
177776 


-SBTTL TEST - NO SACK TIMEOUT 


1@ THIS TEST [NSURES THAT THE CPU TIMES OUT AND DROPS A GRANT IF NO 

s@ SACK SIGNAL IS RECEIVED. S NOT TIMEOUT, THE UBE 

s@ WILL TIME OUT AND SEND SACK TO PREVENT THE BUS FROM HANGING AND WILL SET 
3@ THE ERROR BIT IN CR2. 


3¢ 
é 
: ®BGNTST 
: 
3 LET SBEICC = -1 TO 00 1 TRANSFER 
3 LET SBEICR2 = SBEICR2 Ser" BY @BITOS TO INHIBIT SACK 
: LET SBE1CR1 = #6003 TO DO FUN 5 
3 WAIT FOR TIMEOUT OR GBEICC NE -1 
3 IF WO TIMEOUT AND GBEICR2 SET.BY @BITO7 THEN 
3 . ERROR CPU FAILED TO DO NO SACK TIMEOUT 
3 ENDIF 
i 
3; ENDTST 
3 
GSS SSS SPSS SS SO SSS SSSSSSSSSSHHSSOHTSSSS®SSSCSCS BFF SC SS SCeZeCeCeCeeeCe fecrcece 
3 f SSSSSSSSSSSSSSSSSSSSSSSSSSSHSSHSSSSSSHSSHSESSSEESHEESESEEEHEEEEESE 
seTEST 45 NO SACK TIMEOUT 
8S SSOHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSESSESSSESEESHEEES 
TST4S: SCOPE 
JSR PC, IUBE s INITIALIZE THE UBE 
MOV @BITOS,GBE1CR2 ; ANHIBIT SACK oes 
CLR PSw s LOWER PRIORITY 
MOV 3,@BE1CR1 ; GIVE UWP BUS on BECOMING MASTER 
MOV @7777,R1 3: DELAY CONSTAN 
1%: $08 1,18 3 WAIT INAL 
TST6 1 s NO NO SACK TIMEOUT? 
BPL 2s : IF NO, BR 
ERROR «¢ s NO NO SACK TIMEOUT 
2s: MOV @0,aBE1CR2 3; CLEAR INHIBIT SACK BIT 
MOV ° s RESTORE PRIORITY 
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SEQ 0096 
TEST - NO INTERRUPT TEST 
3955 -SBTTL TEST - NO INTERRUPT TEST 
3956 
3957 1@ THIS TEST CHECKS THAT NO INTERRUPT CONDITION DOES NOT HANG THE BUS. 
3958 3% 
3959 3 
3960 : ®BGNTST 
3961 3 
3962 F PROGRAM UBE TO DO DMA ON BR7 
3963 ’ IF CYCLE NOT DONE OR INTERRUPT THEN 
3964 F . ERROR IN NO INTERRUPT LOGIC 
3965 3 ENDIF 
3966 3 
3967 3 ENDTST 
3968 3 
3969 Brrr tr ree en en nw eww ewe ewww enn e neem e wenn nnn nn nnn een --e 
3970 
3971 Mwiriiriviiiii i iittiitiiiiiiitiitiiiiiiiiiiiitiiiititiit titi tit ttt 
3s*TEST Pp EASE 
wiTiiiiiiiiiiiiiiitiiitiiitiiiiiiiiiiiiiiiitiiiiitiiiiiiiit tt tt tT 
sere 016124 000004 TST46: 
3973 016126 004737 JSR . TUBE 3 INITIALISE UBE 
3974 016132 012777 177777 164012 MOV @-1,@B8E1CC s 00 1 CYCLE 
3975 016140 012777 001160 164006 MOV @sTMPO, @BE1BA 3s AT ADDRESS sTMPO 
3976 016146 012777 016220 MOV #108 , @BE1 VEC s POINT VECTOR 
3977 016154 012737 177776 MOV @3,.PSwW 3 LOWER PRIORITY TO 3 
3978 016162 012777 002021 163766 MOV 02021 ,@BE1CR1 s BR7, DATI 
3979 016170 105777 163762 1%: TSTB @BE1CR1 3s DONE? 
3960 016174 100375 BPL is 3s IF NOT, WAIT 
3961 016176 012737 000340 177776 MOV 0340 ,PSW 3s RESTORE PRIORITY 
3962 016204 023777 001160 163736 CMP $TMPO ,@BE108 3 DATA OK? 
3963 016212 001404 BEQ TST47 33s IF OK, EXIT TEST 
3964 016214 104032 ERROR +32 s DATI ON BR7 IS WRONG 
oy 016216 BR TST47 33: GO TO NEXT TEST 
3967 016220 104032 10%: ERROR 32 3s NO INTERRUPT LOGIC IS WRONG 
39868 016222 RTI 


KTJ1i-8 DIAGNOSTIC 
TEST - UNIBUS DEVICE DATO CYCLE 


016224 


012701 


012737 
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002450 


000040 172516 
001734 
001774 


000002 177730 


SEQ 0097 


-SBTTL TEST - UNIBUS DEVICE DATO CYCLE 


s@ THE FOLLOWING TEST WILL SEE IF A UNIBUS DEVICE DATA OUT 
3@ CAN OCCUR ON THE KTJ11-8 MODULE. THE UNIBUS DATA PATH 
s¢ ON THE BOARD IS ALSO TESTED OUT. 


BGNTST 


3 

ns 

3 DISABLE UNIBUS MAPPING 

: LET RO :* POINTER TO WRITE BUFFER 
; LET R1 :* POINTER TO PATTERN TABLE 


3* GO DO THE TRANSFERS 


: ” FOR PATTERNS 377,7417,31465,52525, 125252 
LET BE108 := (R1)+ sDATA IS CURRENT PATTERN 
LET BEIBA := (RO)> sADDRESS IS CURRENT ADDRESS OF WRITE BUFFER 
LET BEICC := -1 sSET UBE FOR 1 DATA XFER 
- SET UBE FOR NPR-DATO-1 XFER 
. SET OFF THE TRANSFER 
ENDOO 


LET RO := POINTER TO WRITE BUFFER 
LET R1 :* POINTER TO PATTERN TABLE 


CHECK IF THE TRANSFERS WERE CORRECT 
OO UNTIL TABLE IS COMPLETE 


- IF (RO)+ NEQ (R1)+ THEN 
ERROR DATO DID NOT OCCUR CORRECTLY 


8S SSSHOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESHSSSSSSSSESHASESEEEES 


s*TEST 47 UNIBUS DEVICE DATO CYCLE TEST 
"= uae =" agar aaa aetna cane 
: 
JSR PC, IUBE s INITIALIZE THE UBE 


3 
s INITIALIZE POINTERS FOR THE TRANSFERS 


BIC BITS MARS 3 MAKE SURE UNIBUS MAPPING IS DISABLED 
MOV @URTBUF ,RO ; POINTER TO WRITE BUFFER 
MOV @PTRN16,R1 s POINTER TO PATTERN TABLE 


‘ 
s EXECUTE THE LOOP TO DO THE TRANSFERS 


MOV #81T01,0CSR s SELECT UNIBUS LINES 


ee ED © + -_—_-—-__--- ooo —---—-- ----- ese oe eee eee ee eee eee ee 7p 
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4079 016420 


012704 
012177 
010077 
005077 
012777 
012777 
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UNIBUS DEVICE DATO CYCLE TEST 


163646 
163644 


163636 


177732 
001126 
177730 
177730 
177730 


1%: 


@-1.,@BE1CC 
03041, 8BE1CR1 


SET UP LOOP COUNT 
. GET CURRENT DATA 


. GET ADDRESS IN THE WRITE BUFFER 


- CLEAR ADDRESS BITS 16,17 


- SET UBE FOR 1 DATA TRANSFER 
. SET UBE FOR NPR-DATO-1 XFER 


3 
s WAIT FOR THE TRANSFER TO BE COMPLETE 


78: 


BIT @6IT7,@BE1CR1 ; . . IS THE TRANSFER COMPLETE ? 
8EQ 5s s . . NO, THEN GO WAIT FOR IT 

TST DOR s . . UNIBUS LINES 0? 

BEQ 7% HH . . IF so, BRANCH 

CHP @3,R4 s . . SELECTING CONTROL LINES 

BNE 6% s . . IF NOT, 

BIT @373,00R s . . ONLY USED LINES 0'S? 

BEQ 8 «© e IF ° BR 

MOV DOOR, $BODAT s . . RECIEVED DATA 

CLR T s . . EXPECTED DATA 

ERROR +16 $ IN LINES 

ADO #61T01,0CSR 3 . THRU ALL COMBINATIONS 

BIT »°CSR H . ALL DONE? 

BNE s . . IF NOT, 

MOV #6IT01 ,.0Cs? $ . OTHERWISE, ST 

ADD #2, H . GET THE NEXT ADDRESS TO TRANSFER TO 
S08 R4,1% 3 . HAVE WE THROUGH THE TABLE ? 
IF THE TRANSFERS WERE COMPLETED CORRECTLY 

MOV OURTBUF ,RO s POINTER TO WRITE BUFFER 

MOV OPTRNI6,R1 : POINTER TO PATTERN TABLE 

MOV #5 ,R4 s SET UP LOOP COUNT 

CoP CRO)+,CR1)+ $ THE TRANSFER C cT ? 

BEQ 15% s . YES, THEN SKIP THE ERROR MESSAGE 
ERROR +32 s . NO, THEN ERROR IN THE TRANSFER 
SOB R4,10% s . HAVE WE CHECKED ALL 5 XFERS ? 
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TEST - UNIBUS DEVICE DATI CYCLE 


4122 016442 004737 002450 
4123 016446 042737 000040 172516 


4129 016454 012700 001774 


4136 016462 005077 163462 
4137 016466 010077 163462 
4136 016472 005077 163464 
4139 016476 012777 177777 163446 
4140 016504 012777 002041 163444 


-SBTTL TEST - UNIBUS DEVICE DATI CYCLE 


3@ THIS TEST WILL SEE IF THE KTJ11-8 MODULE CAN EXECUTE A 
s@ UNIBUS DEVICE DATI CYCLE. *HE UNIBUS ADDRESS PATH ON THE 
3# MODULE IS ALSO TESTED OUT. 


3% 
é 
; BGNTST 
é 
3% 
s¢ INITIALIZE THE POINTERS FOR THE TRANSFERS 
3% 
; DISABLE UNIBUS MAPPING 
H LET RO :* POINTER TO 16 BIT PATTERNS 
; LET R1 := CRO) sCURRENT PATTERN 
3% 
3 GO DO THE TRANSFER THEN CHECK IF IT OCCURED CORRECTLY 
3% 
; LET BE108 := 0 sCLEAR DATA BUFFER 
LET BE1IBA := RO sREAD FROM DATA PATTERN 
LET BEICC := -1 31 DATA XFER 
SETUP UBE TO DO NPR-DATI-1 DATA XFER 
SET OFF THE TRANSF 


ER 
IF BE108 NEQ 0377 THEN 
oe DATA READ IN WAS INCORRECT 


3 SSSSSHSSSSSSSSSSSSSHSSSSSESSSSSSSSSESSSSESHSSSSSESESESSESEHESEEEES 


s*TEST SO UNIBUS DEVICE DATI CYCLE TEST 
$s SSSSOSSSESSEESESESESEEEEEEESESESESESEEEEEESESESESESEEEEEEEEEEES 
TSTSO: 
JSR PC, IUBE s INITIALIZE THE UBE 
BIC e6ITS ORS s DISABLE UNIBUS MAPPING 
; 
s INITIALIZE POINTERS FOR THE TRANSFERS 


MOV @PTRN16 RO s GET POINTER TO PATTERN TABLE 
MOV CRO),R1 s GET CURRENT PATTERN 


; 
s GO 00 THE TRANSFER 


S$: CLR &BE 108 s . INITIALIZE THE DATA BUFFER 
MOV RO, BE1BA s . GET ADORESS WE WANT TO READ 
CLR SBE 1CR2 s . CLEAR ADDRESS BITS 16,17 
MOV #-1,8B8E1CC s . SET UBE FOR 1 TRANSF 
MOV #2041,@BE1CR1 ; . SET UBE FOR NPR-DATI-1! XFER 


SEQ 0099 








ee SH 
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TSO UNIBUS DEVICE DATI CYCLE TEST SEQ 0100 
4143 3; WAIT FOR THE TRANSFER TO COMPLETE 
ron H 
414 
4146 016512 032777 000200 163436 10%: BIT 8IT7,@BE1CR1 s . . IS THE TRANSFER COMPLETE ? 
a 016520 001774 BEQ 10$% s . . WAIT FOR IT TO BE COMPLETE 
41 
4149 3 
4150 3; CHECK THE TRANSFER 
“1 : 
4153 016522 027720 163422 CMP 8BE108,CRO)>+ 3 . WAS THE TRANSFER CORRECT ? 
4154 016526 001401 BEQ TSTS1 83 YES, THEN GO TO THE NEXT TEST 
met 016530 104032 ERROR +32 3: . NO, THEN ERROR IN THE TRANSFER 
4157 
4158 


2 ES eS - = 


K8 
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SEQ@ 0101 
TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
4161 -SBTTL TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
4162 
4163 3@ THIS TEST WILL SEE IF THE KTJ11-8 MODULE CAN EXECUTE 
4164 3@ A UNIBUS DEVICE DATO CYCLE THROUGH THE UNIBUS MAP. 
4165 34 
4166 3 
4167 ; BGNTST 
4168 F IF ALL UNIBUS MEMORY THEN GO TO END OF PASS 
4169 3% 
4170 3 SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 
4171 3% 
4172 3 LET BEIBA := 0 sPOINT TO UMRO 
4173 3 LET BE108 := 125252 sDATA PATTERN IS 125252 
4174 3 LET BEICC := -8. 300 8 XFERS 
4175 3 SET UBE TO DO NPR-DATO-2 DATA XFERS 
4176 3 LET MAPLOO := ADDRESS OF WRITE BUFFER 
4177 3 LET MAPHOO := 0 
4178 3% 
4179 34 GO DO THE TRANSFER 
4180 i* 
4161 3 SET OFF TRANSFER 
pee 3 WAIT TILL XFER IS DONE 
1 3% 
ae 3% CHECK IF THE TRANSFER OCCURED CORRECTLY 
41 3% 
4166 3 LET RO := POINTER TO WRITE BUFFER 
41867 : DO FOR R1 :* 1708 
4188 3 IF (RO)+ NEQ #1 THEN 
4189 3 . ERROR DATO DID NOT EXECUTE CORRECTLY 
4190 3 ENDIF 
4191 3 
4192 3 
4193 3s ENDTST 
4194 3 
4195 Brrr nn en ee eee ecw ecw ec ewe ec ene wee eee nen e eee eee 
4196 
4197 § SSSSSSSSESSSSSSESSESSESSSEESESEEESESEEEESESEDEEEEEEEEEEESEEEESES 
s*TEST 51 UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
§ SPSSSSOSSSSSSEEEESSESESSSSSEESEESESESSEESEEEEDESEEEEEEEEESEEEEEES 
emt 016532 000004 TSTS1: SCOPE 
4199 016534 013701 177734 nov KMCR ,R1 s STORE KMCR 
4200 016540 042701 177700 BIC #177700,R1 3 LEAVE ONLY BITS <5-0O> 
4201 016544 022701 000077 CMP @77,R1 s ALL MEMORY ? 
4202 016550 001002 BNE 1s : IF NOT, BRANCH 
4203 016552 000137 022766 JP s$E0OP 3: IF ALL UNIBUS, SKIP TILL ENC OF PASS 
4204 016556 004737 002450 18: JSR PC, IUBE s INITIALIZE THE UBE 
4206 i 
ot 3; SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 
$ 
4209 
4210 016562 005077 163366 CLR @BE1BA s POINT UBE ADORESS TO UNIBUS MAP 
4211 016566 005077 163370 CLR SBE 1CR2 3s REGISTER #0 
4212 016572 012777 125252 163350 MOV #125252,8BE1068 ; DATA PATTERN IS 125252 
4213 016600 012777 177770 163344 MOV @-86.,@BE1CC ; 00 8. T 
F 


RANSFERS 
SET UP LOW MAP REGISTER 


4214 016606 012737 001734 170200 MOV @URTBUF , MAPLOO 
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TS1 
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UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
4215 016614 005037 170202 CLR MAPHOO ; SET UP HIGH MAP REGISTER 
4216 016620 052737 000040 172516 BIS BITS MARS ; ENABLE UNIBUS ING 
4217 
4218 3 
4219 ; GO DO THE TRANSFER 
4222 016626 012777 003041 163322 MOV 3041 ,8BE1CR1 : OO A NPR-DATO-1 XFER 
4223 016634 032777 000200 163314 10%: BIT @6IT7,@BE1CR1 s IS THE TRANSF 
4224 016642 001774 BEQ 10% 8 
4225 
4226 3 
4227 3: CHECK IF THE TRANSFER OCCURED CORRECTLY 
4228 3 
4230 016644 042737 000040 172516 BIC BITS PRS s DISABLE UNIBUS 
4231 016652 012700 001734 mov RO 3: GET POINTER 
4232 016656 012701 000010 MOV s SET UWP LOOP COUNTER 
4233 016662 7 15%: Cup (RO)+, 0125252 s . SEE IF TRANSFER OCCURED CORRECTLY ? 
4234 016666 001401 BEQ : . YES, THEN SKIP ERROR MESSAGE 
4235 016670 104032 ERROR + s . NO, THEN ERROR IN TRANSFER 
— 016672 077105 208: SOB R1,15% F HAVE WE CHECKED ALL THE TRANSFERS 


MAPP 
ER COMPLETE ? 
WAIT FOR IT TO COMPLETE 
TO WRITE BUFFER 


KTJ11-8 DIAGNOSTIC 
TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
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4240 .SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
4241 
4242 3@ THIS TEST WILL SEE IF THE KTJ11-8 MODULE CAN EXECUTE 
4243 3@ A UNIBUS DEVICE DATI CYCLE THROUGH THE UNIBUS MAP WITH 
4264 3@ CACHE DISABLED. 
4245 3% 
4246 3 
4247 : ®BGNTST 
4248 3 
4249 34 
4250 3@ SET UP THE UBE FOR A DATI CYCLE 
4251 3% 
4252 3 LET BE1BA := 0 ‘torr ADDRESS TO MAPXOO 
4253 3 LET BE1CR2 :2 O 
4254 3 LET BE108 := 0 V INITIALIZE on BUFFER 
4255 3 LET BEICC := -1 sSET FOR 1 XF 
pris 3 SET UBE FOR A NPR-DATI-1 XFER 
3% 
aaae 3@ SET UP THE MAP REGISTER FOR THE TRANSFER 
3% 
4260 3 LET MAPLOO := RO sPOINT UMR @0 TO DATA PATTERN 
4261 Hy LET MAPHOO := 0 
4262 3 UNIBUS MAPPING 
4263 3% 
8204 3* GO DO THE TRANSFER 
4265 3% 
4266 3 SET OFF THE TRANSFER 
4267 3 WAIT FOR TRANSFER TO COMPLETE 
a4 8 DISABLE UNIBUS MAPPING 
3% 
rb :@ CHECK IF THE TRANSFER OCCURED CORRECTLY 
3% 
4272 3 IF BE108 NEQ (RO)+ THEN 
4273 H ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
4274 3 ENDIF 
4275 3 
4276 s ENDTST 
4277 3 
4278 Br rn nn en en nn nn nn nn ne ne ee ne ee ee eee eee ---- 
4279 
4280 
4281 8 § SSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSEEEESS 
s*TEST S2 UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
2 EMSRS EASHAHKES SSE BA SCKHSASSEAHKSHOCEESAGAEHHSCHORAEHREHREKHEESHSESEHKE EH 
neon 016674 G00004 TSTS2: SCOPE 
os 016676 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
4265 : 
= ; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
Hy 
4 
4269 016702 005077 163246 CLR @BE1BA s POINT UBE TO THE FIRST UNIBUS MAP 
4290 016706 005077 163250 CLR @BE1CR2 ; REGISTER 
4291 016712 005077 163232 CLR @BE 106 s INITIALIZE THE DATA BUFFER 
4292 016716 012777 177777 163226 MOV @-1,@BE1CC ; SET FOR 1 TRANSFER 
4293 016724 012737 001774 170200 MOV @PTRNI6.MAPLOO ; POINT MAP REGISTERS TO PATTERN TABLE 


SEQ 0103 
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4294 016732 
4295 016736 


005037 
052737 


N8& 
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TS2 UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 


170202 
000040 


163154 


172516 


163204 
163176 


172516 


000377 


CLR 
BIS 


MAPHOO 
@BITS MARS 


; 
; GO DO THE TRANSFER 


S$: 


MOV 
BIT 
BEQ 
BIC 


€2041 ,@BE1CR1 
eSIT7,@BE1CR1 


S$ 
BITS, SereRS 


; 
; CHECK THE TRANSFER 


CMP 
BEQ 


BE 108 , 0377 
TsTS3 
+32 


ce ee ee 


; 
; ENABLE UNIBUS MAPPING 


; SET UBE FOR NPR-DATI-1 XFER 
; IS Ti TRANSFER COMPLETE 

; NO, THEN WAIT FOR IT TO BE COMPLETE 
; YES, THEN DISABLE UNIBUS MAPPING 


; DID THE TRANSFER HAPPEN CORRECTLY ? 
3; GO TO THE NEXT TEST 
; TRANSFER DID NOT OCCUR CORRECTLY 
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TEST - ALU TEST USING UBE 


-SBTTL TEST - ALU TEST USING UBE 


s@ THIS TEST WILL CHECK THE FIRST 3 ALU’S EACH ONE AT A TIME. AT FIRST THE 
‘ 


@ PATTERN THAT DOES NOT RESULT IN OVERFLOW WILi BE USED, THE 
3@ GENERATES OVERFLOW INTO THE NEXT ALU. 


SECOND PATTERN 


LOW FROM ALU) 


taps ADDRESS TO MAPXOO 
tINITIALTZE OA — BUFFER 


sPOINT UMR #0 TO DATA PATTERN 


UNIBUS MAP DID NOT EXECUTE CORRECTLY 


sPOINT ADDRESS TO MAPXOO 


3 
sINITIALIZE DATA BUFFER 
sSET FOR 1 XFER 


sPOINT UMR @0 TO DATA PATTERN 


: BGNTST 

3 

’ IN 18-BIT MODE DON'T RUN THIS TEST 

’ LET R1 :* 1001 (PATTERN WITHOUT OVERF 
3 LET R2 :* G101 (MAP REGISTER PATTERN) 
3 LET RS :* @MAPLOO 

3 LET RG :* 0110 (OVERFLOW) 

; LET RS :* 1011 

$ DO FOP 3 PATTERNS 

’ LET BE1BA :=* Ri 

3 Let BEICR2 :* 0 

: - LET BE108 :- 0 

’ LET BEICC := -1 sSET F 
3 SET UBE FOR A NPR-DATI-1 XFER 

3¢ 

3¢ SET UP THE MAP REGISTER FOR THE TRANSFER WITHOUT OVERFLOW FROM ALU 
3¢ 

8 LET (RS) := R2 

8 LET 2(R3) :* O 

: ENABLE UNIBUS MAPPING 

3¢ 

s¢ GO DO THE TRANSFER 

3¢ 

3 . SET OFF THE TRANSFER 

$ . WAIT FOR TRANSFER TC COMPLETE 

$ - OISABLE UNIBUS MAPPING 

3¢ 

3¢ CHECK IF THE TRANSFER OCCURED CORRECTLY 
3¢ 

F - IF B€108 NEQ@ (R1-R2) THEN 

8 - « ERROR DATI THROUGH 

8 . ENDIF 

3¢ 

3¢ NOW CHECK CARRY OUT FROM ALU 

3¢ 

’ - LET BEIBA ;:= RA 

8 LET BEICR2 :* 0 

8 LET B€108 :* 0 

s LET BEICC := -} 

5 SEY UBE FOR A NPR-DATI-1 XFER 

4¢ 

5¢ SET UP THE MAP REGISTER FOR THE TRANSFER 
3¢ 

F . LET CRB) se . 

$ LET 2(R3) ;:= 

5 ENABLE UNIBUS OHAPPING 

4¢ 

s¢ GO DO THE TRANSFER 

4¢ 

5 SET OFF THE TRANSFER 


SEQ 0105 


ee ee 
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017110 


017116 
017124 
017132 


Ly 


MACRO M1200 05-OCT-84 09:24 PAGE 53-1 


032737 000040 


010077 163070 
005077 163072 


005077 163054 
012777 177777 
010115 


3 
052737 000040 


177734 


163050 


172516 


163032 
163024 


172516 


: _ WAIT FOR TRANSFER TO COMPLETE 
; ’ DISABLE UNIBUS MAPPING 
3¢ 
1@ CHECK IF THE TRANSFER OCCURED CORRECTLY 
fo 
: _ IF BE108 NEQ (R4-RS) THEN 
: yg GRROR OATI THROUGH UNIBUS AP DID NOT EXECUTE CORRECTLY 
i e 


3¢ CHANGE THE PATTERN 


: . SHIFT R1,R2,R4,R5 4 TIMES AND POINT TO MAPLOS AND MAPLOG 
- POINT RS TO MAPLOS AND THEN TO MAPLO6 


$3 SSSSSSHOSSSS! SHOT AHHOHHSHASESHSSHESHSHHASHOTHHSHSESSHESHHKHKKESHEHHKEKEBOE 


ALU TEST USING UBE 


§ FOSCSOOSSOS SO OSSSESEESESESEESEEEDEEEEESSEESESEESESEEEOSSLOSEESECEES 
: SCOPE 


seTES’ 53 

TSTS3 
BIT 
BL 
SP 

108: CLR 
JSR 
MOV 
OV 
MOV 
MOV 
MOV 
CLR 


@81T05,.KMCR 


18 BIT MODE? 
IF 


USED 
PATTERN FOR pon | —e FOR A. LINES 
PATTERN FOR MAP PAIR 
LOCATION TO SELECT REGISTER PAIR 


3 
s SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 


F 
16: MOV 


26: BIT 


2cr 
C6ITS PRS 
TRANSFER 
1,@BE1CR1 


9204 
—_ 
$8ITS, GerPRS 


POINT UBE TO THE PATTERN 
REGISTER 

INITIALIZE THE DATA BUFFER 

SET FOR 1 TRANSFER 

POINT MAP REGISTERS TO PATTERN 
CLEAR HIGH MAP REGISTER 

ENABLE UNIBUS MAPPING 


SEQ 0106 


TSS 
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ALU TEST USING UBE 


4440 017212 


017214 


364 
4481 017370 
4462 017374 
4483 017400 
4464 017404 


177777 


000002 
000040 


001160 
161772 


001720 


001162 


D9 
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| CHECK THE TRANSFER 
o 
MOV RO, $TMPO 5 FIND ADORESS ACCESSED 
aIC #160000, $THPO = ,:*MAKE SURE THAT USING ALL 16 BITS FOR ADORESS 
9 $ 
CHP SBE1DB,.G¢THPO ; DID THE TRANSFER HAPPEN CORRECTLY ? 
BEQ 38 : IF SO, BRANCH 
MOV SBE108,8B00AT ; WRONG DATA 
MOV @tTHPO,SGDDAT ; EXPECTED DATA 
“OV STHPO, ¢ s ADORESS USED 
ERROR +23 s TRANSFER DID NOT OCCUR CORRECTLY 
3 
3 NOW CHECK THE SAME ALU FOR OVERFLOW 
t 
38: MOV R4, @BE1BA s POINT UBE TO THE PATTERN 
CLR SBE 1CR2 : REGISTER 
CLR @BE 108 ; INITIALIZE THE DATA BUFFER 
“OV @-1,@B€1CC ; SET FOR 1 TRANSFER 
MOV RS, (R3) 3 POINT MAP REGISTERS TO PATTERN 
CLR 2(R3) s CLEAR HIGH MAP REGISTER 
BIS 6827S ,1ORS 3 ENABLE UNIBUS MAPPING 
; GO DO THE TRANSFER 
é 
MOV €2041,8B8E1CR1 ; SET UBE FOR NPR-DATI-1 XFER 
ast: BIT @B8IT7.GBE1CR1 ; IS THE TRANSFER COMPLETE 
BEQ as : NO, THEN WAIT FOR IT TO BE COMPLETE 
BIC @81'5,Q07RS =; YES, THEN DISABLE UNIBUS MAPPING 
} CHECK THE TRANSFER 
3 
MOV , sTMPO 3s FIND ADORESS ACCESSED 
eIC #160000, +THPO ; MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 
° TMPO 3 
chp SBE108,8¢TMPO ; DID THE TRANSFER HAPPEN CORRECTLY ? 
8EQ s IF SO, BRANCH 
MOV @BE108,8B00AT ; WRONG DATA 
MOV BtTMPO,SGDDAT  ; EXPECTED DATA 
HOV sTHPO, ¢ 3 ADORESS USED 
ERROR +23 3 TRANSFER DID NOT OCCUR CORRECTLY 
| CHANGE THE PATTERN 
i 
S$: CHE #2000, PMIS : MORE THAN 32K OF PMI MEMORY? 
BHIS TSTS4 13 IF NOT, EXIT TEST 
ASH 64 RO ; TO GET TO NEXT ALU 
ASH 64,R1 : BY SHIFYING 4 TIMES 
ASH 04 ,R4 3 
ASH ‘ 3 
ADO #12. ,R3 ; GET NEXT REGISTER PAIR 
ADO . sTMP1 3 


SEQ 0107 
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4485 017412 


4488 017430 
4489 017432 
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BIS 
BIS 
CMP 
BNE 


E9 


$1HP1,RO s SET TO SELECT NEXT REGISTER PAIR 
$TMP1,R4 : 

#20000, $TMP1 s ALL 3 ALU’S DONE? 

1s s IF NOT, BRANCH 
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SE@ 0109 | 
TEST - CARRY PROPOGATION TEST USING UBE | 
449i -SBTTL TEST - CARRY PROPOGATION TEST USING USE 
4492 
4aag93 3@ THIS TEST VALIDATES THAT CARRY CAN BE PROPOGATED THRU ALL ALU’S CORRECTLY. 
4a%4 3@ THE RESULT IS OBTAINED FROM LOCATION O. 
4495 3 
4496 3: ®BGNTST 
4497 3 
44398 3% 
4499 3¢ SET UP THE UBE FOR A DATI CYCLE 
4500 34 
4501 3 LET 800 := #52525 
4502 3 LET BE1BA := #2 
4503 3 LET BEICR2 := 0 
4504 3 LET BE108 := 0 sINITIAL IZE DATA BUFFER 
4505 3 LET BEICC := -1 sSET FOR 1 XFER 
pee 3 SET UBE FOR A NPR-DATI-1 XFER 
4 s* 
rote 3*¢ SET UP THE MAP REGISTER FOR THE TRANSFER 
r 38 
4510 3 LET MAPLOO := 0177777 sPOINT UMR @0 TO DATA PATTERN 
4511 3 LET MAPHOO := 677 
4512 3 ENABLE UNIBUS MAPPING 
4513 3% 
4514 3 GO DO THE TRANSFER 
4515 3% 
4516 3 SET OFF THE TRANSFER 
4517 F WAIT FOR TRANSFER TO COMPLETE 
rete 3 DISABLE UNIBUS MAPPING 
3% 
cant 3¢ CHECK IF THE TRANSFER OCCURED CORRECTLY 
3% 
4522 3 IF BE108 NEQ@ 800 (52525) THEN 
4523 ’ ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
4524 3 ENDIF 
4525 3 
4526 3 ENDTST 
4527 F 
4528 elcid altel tattle atti 
4529 $$ SSSSSSSESSSESSEESSEEEESESEESSESSSEESSESEOESEESESESESOSESEEEEEEEES 
s*TEST 54 CARRY PROPOGATION TEST USING UBE 
ff SSSCCOSSSSSSESESOSESSESEESESSEEEEEEEEESEESESEOEESESESESESESEESES 
esee 017432 000004 TSTS4: SCOPE 
4531 017434 005037 172354 CLR KIPAR6 3s CLEAR FOR ERROR REPORTS 
= 017440 004737 002450 JSR PC, IUBE s INITIALIZE THE UBE 
4534 $ 
ree s SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
3 
4537 
4538 017444 012737 052525 000000 MOV #52525 , 880 3s TEST LOCATION 
4539 017452 012777 000002 162474 MOV 02 ,GBE1BA 3s POINT UBE TO THE FIRST UNIBUS MAP 
4540 017460 005077 162476 CLR @BE1CR2 s REGISTER 
4541 017464 005077 162460 CLR @8E 106 ’ pee THE a BUFFER 
4542 017470 012777 177777 162454 MOV @-1,@BE1CC s SET FOR 1 TRANSFER 
4543 017476 012737 177777 170200 MOV 177777,MAPLOO ; POINT MAP REGISTERS TO OVERFLOW 
4544 017504 012737 000077 170202 MOV 077 ,MAPHOO 1 





TS4 


4545 017512 
4546 


4565 017574 
4566 
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052737 


012777 
032777 
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CARRY PROPOGATION TEST USING UBE 


000040 


162370 
052525 
001122 


172516 


G9 


SEQ 0110 


BIS @BITS MARS s ENABLE UNIBUS MAPPING 
; 
s GO 00 THE TRANSFER 


MOV @2041,8BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 
S$: BIT @6IT7,GBE1CR1 ; IS THE TRANSFER COMPLETE 
BEQ S$ s NO, THEN WAIT FOR IT TO BE COMPLETE 
BIC @8ITS,OHPRS s YES, THEN DISABLE UNIBUS MAPPING 
3 
s CHECK THE TRANSFER 


chp @BE108.@52525 ; DID THE TRANSFER HAPPEN CORRECTLY 7 
BEQ TSTSS ss GO TO THE NEXT TEST 
MOV SBE108,$86D0AT  ; WRONG DATA 


MOV «$GODAT ; EXPECTED DATA 
CLR $BDADR s ADDRESS USED 
ERROR +23 s TRANSFER DID NOT OCCUR CORRECTLY 
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000004 
004737 
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002450 


162352 
162346 


-SBTTL TEST - NXM TEST USING UBE 
s@ THIS TEST CHECKS THAT ACCESSING NXM MEMORY CAN BE DONE CORRECTLY THRU 
3@ UBE. TEST LOCATION USED IS 17760000. 


F 
: ®BGNTST 


3¢ «SET UP THE UBE FOR A DATI CYCLE 


3 LET BE1BA := 0 — ADDRESS TO MAPXOO 
’ LET BEICR2 := 0 

3 LET BE108 :* 0 p INITIALIZE a. BUFFER 
; LET BEICC := -1 sSET FOR 1 XxF 

4 SET UBE FOR A NPR-DATI-1 XFER 

3¢ 

3¢ SET UP THE MAP REGISTER FOR THE TRANSFER 

3% 

3 LET MAPLOO := #160000 sPOINT UMR @0 TO DATA PATTERN 
3 LET MAPHOO := 077 

3 ENABLE UNIBUS MAPPING 

3% 

:* GO DO THE TRANSFER 

3% 

; SET OFF THE TRANSFER 

3% 

s¢ CHECK IF THE TRANSFER OCCURED CORRECTLY 

3% 

H IF @BITOS NOTSET IN SBEICR2 THEN 

H . ERROR DATI TO NXM IS WRONG 

$ ENDIF 

é 

s ENDTST 

3 


BI SSSREEAEROALAEROESHEMHEOESEEDEBERKESAEREODAHEEEAHESOCSROLAGEHEEESHE 


;eTEST SS NXM TEST USING UBE WITH RELOCATION ENABLED 
ne SE eT cet cee et Te ee S6ee600886 
. PC, IUBE ; INITIALIZE THE UBE 


‘ 
s SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
5 


MOV #106 , @BE1VEC s POINT INTERUPT VECTOR 

MOV 0340 , SBE 1PSW i 

CLR SBE1BA s POINT UBE TO THE FIRST UNIBUS MAP 
CLR @BE1CR2 s REGISTER 

CR SBE 108 s INITIALIZE THE DATA BUFFER 

MOV @-1,@BE1CC s SET FOR 1 TRANSFER 

MOV #160000,MAPLOO ; POINT MAP KEGISTERS TO NXM 17760000 
MOV 77 , MAPHOO ’ 

BIS OBITS ARS s ENABLE UNIBUS MAPPING 


‘ 
s GC 00 THE TRANSFER 
$ 
MOV €2041,8BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 


SEQ 0111 
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TSS NXM TEST USING UBE WITH RELOCATION ENABLED 


4622 017672 032777 000200 162256 5%: BIT @6IT7,@BE1CR1 ; IS THE TRANSFER COMPLETE 
4623 017700 001774 BEQ S$ s NO, THEN WAIT FOR IT TO BE COMPLETE 
4624 017702 032777 000400 162252 BIT @BITO6,GBEICR2 ; NXM ? 
4625 017710 001001 BNE 65 s IF SO, BRANCH 
017712 104022 ERROR +22 s NXM NOT SET 
4627 017714 106427 000140 68: MTPS #140 s ALLOW INTERRUPTS 
4626 017720 000240 woP 
4629 017722 000240 NOP 
4630 017724 104022 ERROR +22 s NXM WITHOUT INTERRUPT 
4631 017726 00U0404 BR 12¢ ’ 
= 017730 106427 000340 MTPS @340 s RESTORE PRIORITY 
; 
pore : CHECK THE TRANSFER 
3 
4636 017734 062706 000004 10%: ADO o4, SP s ADJUST STACK 
042737 000040 172516 12%: BIC BITS, SRS s YES, THEN DISABLE UNIBUS MAPPING 


4637 017740 
4638 


oe + ee + Ce ee St 
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SEQ 0113 
TEST - RELOCATION WITH UNIBUS MEMORY 
4640 -SBTTL TEST - RELOCATION WITH UNIBUS MEMORY 
4641 
4642 3@ THIS TEST WILL CHECK THAT MAPPING REGISTER PAIRS THAT ARE 
4643 3@ ASSOCIATED WITH UNIBUS MEMORY DO NOT PERFORM RELOCATION. 
4644 3* IF ANY UNIBUS MEMORY PRESENT, DATI CYCLES TO THAT MEMORY 
4645 3# WILL BE CHECKED. 
4646 34 
4647 3 
4648 3: BGNTST 
4649 3 
4650 3 00 FOR KMCR = #67,27 _ BIT AND 22-BIT MODES, 32K OF PMI MEMORY) 
4651 3 00 WITH MAPPING PAIRS 1 TO 
4652 3 DO DATI TO O USING SeLCTED MAPPING PAIR 
4653 3 IF NO TIMEOUT THEN 
4654 3 ERROR DISABLED REGISTER PAIRS DO RELOCATION 
4655 3 ENDIF 
4656 3 
4657 F IF ANY UNIBUS MEMORY PRESENT THEN 
4658 3 - OO DATI WITH — ENABLED 
4659 3 . IF RELOCATED T 
4660 F - « ERROR 
4661 3 - ENDIF 
4662 3 ENDIF 
4663 3 
4664 s ENDTST 
4665 3 
4666 Brrr rrr rrr en cen cere ween een een nnnnn-- 
4667 
4668 3 $9O6660000600600000606060060006060006000000006000600000600606000600066 
s*TEST 56 RELOCATION WITH Y 


§ § SSSSSSSSESSESESSSESSSSESESESSEEEEEEESESEEEDEEEEEEEDEESDESEEEEES 
. 017746 000004 sc 


4670 017750 013737 177734 001162 MOV KMCR , $TMP1 s STORE KMCR 
4671 017756 013701 177734 MOV KMCR ,R1 s STORE KMCR 
4672 017762 042701 i77740 BIC #177740,R1 3 LEAVE ONLY <4-0> 
4673 017766 012737 170374 001160 MOV @MAPL37 , $TMPO s START WITH HIGHEST ADDRESS 
4674 017774 032701 000037 BIT #37,R1 3 ANY UNIBUS MEMRORY? 
4675 020000 001404 BEQ 101% 3: IF NOT. BRANCH 
4676 020002 162737 000004 001160 100%: SuB 04, $TMPO 3s GET LOWER REGISTER PAIR 
4677 020010 077104 so8 R1,100% 3 LEAVE IN $TMPO HIGHEST AVAILABLE PAIR 
4678 020012 052737 000400 177730 101%: BIS #8IT08 ,OCSR s ENABLE DIAGN. MODE 
4679 020020 012737 000067 177734 067 ,KMCR s 16-BIT, 32K PMI 
Pra 042737 000400 177730 BIC #6ITO6 ,OCSR 3 DISABLE DIAGN. MODE 

F 
a 3; SETUP MAPPING REGISTERS FOR INITIAL CONDITIONS 

’ 
4684 020034 052737 000040 172516 BIS @6ITS MARS s ENABLE UNIBUS MAPPING 
4685 020042 012701 170240 1%: MOV @MAPL10,R1 3 . PGINT TO MAPL1O 
4686 020046 005002 CLR R2 3: . ADORESS BITS <15-0> REG. 10 
4687 920050 012703 000001 MOV #1,R3 3 . ADDRESS FOR CR2<17-16> 
4688 020054 004737 002450 2s: JSR PC, IUBE F - INITIALIZE THE UBE 
4690 Fy 
ree s SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
46 Fy 
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TS6 


4720 020200 
721 020204 


RELOCATION WITH 


012777 


00520. 
023701 


K9 
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UNIBUS 
162070 
162072 
162066 


162050 
177777 


020200 
000340 


MEMORY 


162022 
162014 


162010 


MOV R2,GBE1BA 
CLR 1CR2 
MOV R3,@BE1CR2 
CLR 108 
MOV #-1,8BE1CC 
CLR CR1)> 
CLR CR1}+ 
MOV #10 , @BE1VEC 
MOV 0340, @BE1PSW 
: GO DO THE TRANSFER 
MOV €2041,8B8E1CR1 
5%: BIT @68IT7,@BE1CR1 
BER 5% 
BIT @BIT08 , BBE1CR2 
BNE 6$ 
ERROR +22 
BR 118 
6%: MTPS #140 
woe 
wwe 
+22 
MTPS 0340 
BR 11% 
108: ADO @4,SP 
118: ADO #20000 ,R2 
Bcc 12% 
INC R3 
128: CMP $TMPO,R1 
BHI 2s 
; CHECK IF DONE 
3 
BIT @8ITO5.,.KMCR 
BEQ 13% 
BIs @8ITO8 ,.OCSR 
MOV #27 ,KMCR 
BIC @81708,DCSR 
BR is 
3: IF ANY UNIBUS MEMORY PRESENT, 
3 
13%: CMP @MAPL 37, ¢TMPO 
BEQ 200% 
MOV #140000 , SBE 1BA 
MOV @3,@B8E1CR2 
CLR MAPL 36 
CLR MAPH 36 
MOV #123456 , #0 
CLR @8E108 
ov 2071, @BE1CR1 
20%: TSTB @BE1CR1 
BPL 20% 
CMP #123456 , 8BE 108 
BNE 200% 


ee. oe ee ee ee 


SEQ 0114 


. » POINT UBE TO FIRST MAP REGISTER 
. . REGISTER 
° 17-16> 


. . CLEAR LOM HA MAP REGISTER 
. . AND HIGH MAP TOO 
* LOAD INTERRUPT VECTOR 


oo ec ee Ge oe Ge Ge Ge Ge 
Rae 
~ 
wn 
& 

- 
—~ 
DZD 


. » IS THE TRANSFER COMPLETE 
. NO, aah oat WAIT FOR IT TO BE COMPLETE 


oa sO. BRANCH 
oO NO NXM 
. . LOWER PRIORITY 
: WAIT FOR INTERRUPT 


. » NO INTERRUPT ON NXM 
. RAISE PRIORITY 


- « ADJUST STACK 
- - SELECT NEXT MAP PAIR REGISTER 
. - IF NO CARRY, BRANCH 
. OTHERWISE INCREMENT ADORESS <17-16> 
ALL DONE? 


| IF LESS THAN, BRANCH 


WITH 22-BIT MODE AND 18-BIT 


- 22-BIT MODE DONE? 
YES, BRANCH TO EXIT 
i) . MODE 


DO AGAIN IN 22-BIT MODE 
DO RELOCATION THRU IT 
ANY UNIBUS MEMORY? 
IF NO, EXIT 


TRY TO DO DATI THRU 
THRU MAP 36 REGISTER 
_— MAPPING REGISTER 


SET UP PATTERN AT O 
CLEAR DATA REGISTER 
START DATI 
WAIT TILL 


DONE 
DATA CAME FROM @60? 
IF NOT, BRANCH 





a i ee ee i —, —~ 
= 


L9 


SEQ 0115 | 
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TS6 RELOCATION WITH UNIBUS MEMORY 
4751 020350 1040335 ERROR +33 F 
4752 020352 052737 000400 177730 200%: BIS #6IT06 ,OCSR : 
4753 020360 013737 001162 177734 MOV $TMP1,KMCR ; RESTORE KMCR 
é 


DISABLE DIAGN. MODE 


RELOCATED UNIBUS MEMORY 
ENABLE DIAGN. MODE 
4754 020366 042737 000400 177730 BIC #6IT08 ,OCSR 


KTJ11-8 DIAGNOSTIC 
MAIN MEMORY DISABLE THRU UBE 


M9 
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001720 


161404 
161402 


-SBTTL MAIN MEMORY DISABLE THRU UBE 
3@ THIS TEST sy THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 


3@ THE APPROPRIATE BITS IN KMCR ARE 


SET. THE FIRST 32K ARE NOT GOING 


3* TO BE CHECKED. THE DMA DATI CYCLES WILL BE DONE THAT SHOULD CAUSE 
;@ NXM BIT TO BE SET IN THE UBE REGISTER. 


BGNTST 
DO FOR ALL MEMORY P 


IF NO 


SIZE THE MEMORY AVAILABLE 


AGES 
LET KMCR DISABLE THAT PAGE IN MEMORY 
DO DATI TO THAT LOCATION 
TIMEOUT THEN 


ERROR DISABLED MEMORY DOES NOT TIMEOUT 
ENDIF 


3 s SSSSSSSSSSSESEEESESEEEESEDEEESEERESEESEEDEEEESEEEEEESEESEESEEESS 
s*TEST 57 MAIN MEMORY DISABLE THRU UBE 


§ SOSSSSSSSSSESSESESEDEESESESEEEEEESEEEESEEEEEEEEEESEEEEESEEEEEES 
: SCOPE 


TSTS7 


TST PMIS 
BEQ TST60 
i 


; ENABLE MMU AND SIZE MEMORY 
; 


JSR PC ,MAPPR 
BIS @8ITOO , MMRO 
BIS @8IT04 , MARS 
MOV PMIS ,R2 

BIC @BI TOO. MMRO 


; ANY PMI MEMORY? 
ss IF NONE, EXIT TEST 


REMAP PROGRAM AREA 
ENABLE MMU 
ENABLE 22-BIT MODE 
STORE HIGHEST PAGE 
DISABLE Meu 


: 
3 SETUP MAPPING REGISTERS AND KMCR 


BIS BITS, OHPRS 
MOV . STMPO 
BIS @6IT06 ,OCSR 
MOV 067 , KMCR 
BIC @6IT08 ,.OCSR 
MAPLOO 
#1, MAPHOO 
MOV 020% , SBE1 VEC 
MOV #340, BBE 1PSW 
MOV #2000 , KIPAR6 
; 
s DO DATI TO DISABLED MEMORY 
5 
10%: JSR PC, IUBE 
CLR SBE1BA 


MOV @-1,@BE1CC 
MOV €2041,@BE1CR1 


ENABLE UNIBUS MAPPING 
DIAGNOSTIC MODE 


CLEAR LOW MAP REGISTER 
POINT TO 32k 
. LOAD INTERRUPT VECTOR 


INITIAL POINTER TO ABOVE 32K 


INTIALISE UBE 

. ADORESS TO ACCESS THRU MAP 0 
. ONE CYCLE 

. SET UBE FOR NPR-DATI-1 XFER 


KTJ11-8 DIAGNOSTIC 
MAIN MEMORY DISABLE THRU UBE 
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000200 161374 148: = + la @BE1CR1 
000400 161370 BIT terT08, SBE 1CR2 
BNE 15% 
ERROR +22 
aR 25% 
000140 158: MTPS #140 
NOP 
woe 
ERROR +22 
000340 MTPS 0340 
BR 25% 
000004 208: ADD @4,SP 
3 
; CHANGE PAGE 
; 
172354 25%: Cup KIPARG ,R2 
BHIS 30% 
004000 170200 ADO #4000 , MAPLOO 
Bcc 26% 
170202 INC MAPHOO 
017777 170200 26% ao — »MAPLOO 
000200 172354 ADO #200 , KIPAR6 
000400 177730 BIS #8IT06 ,OCSR 
177734 DEC 
000040 177734 BIT @BITOS,.KMCR 
BEQ 30% 
000400 177730 BIC #81IT06 ,OCSR 
27s: BR 0s 
000040 172516 30$: BIC #6ITOS .MMRS 
000400 177730 BIS @BITO6 ,OCSR 
001160 177734 MOV 6 . 
000400 177730 BIC #8IT06 ,.OCSR 


SE@ 0117 


. IS THE TRANSFER COMPLETE 
. NO, THEN WAIT FOR IT TO BE COMPLETE 


NXM SET? 


. IF SO, BRANCH 
NO NXM 

. LOWER PRIORITY 

: WAIT FOR INTERRUPT 


. NO INTERRUPT ON NXM 
. RAISE PRIORITY 
ANCH 


. BR 
. ADJUST STACK 
ACCESSED AND CHECK END CONDITIONS 


- ALL PAGES DONE? 
. IF YES, EXIT 
INCREMENT IN 


HIGH MAP 


- MODE 
. ACCESS NEXT HIGHER LOCATION 


ALL 126K DONE? 


. IF SO, BRANCH 
. DISABLE DIAG. 


MODE 
FOR THE ~‘e PAGE 


TORE KMCR 
DISABLE DIAG. MODE 


KTJ11-6 DIAGNOSTIC 


TEST - UNIBUS DEVICE DATOS CYCLE 


004737 
012701 
005011 
012777 
012777 
010177 


B10 
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002450 
001734 


077777 
177777 
161152 


003441 
000200 


000377 


161160 
161154 


161146 
161140 


SEQ 0118 

-SBTTL TEST - UNIBUS DEVICE DATOB CYCLE 
= on TEST WILL SEE IF THE KTJ11-8 MODULE CAN EXECUTE 

A UNIBUS DEVICE DATOS . 
os 
a 
; ®BGNTST 
é 
3¢ 
3¢ SET UP UBE FOR A DATOB CYCLE 
3¢ 
8 LET R1 :* ADDRESS OF THE WRITE BUFFER 
t 
3 T BE108 :* 77777 ;OATA PATTERN = 77777 
’ LET BEICC := -1 sSET FOR 1 DATA XFER 
H LET BEIBA := Ri sADORESS IS FIRST LOCATION IN WRITE BUFFER 
8 SET UBE FOR he amt 1 XFER 
t SEY OFF THE 
3 WAIT FOR THE TRANSFER TO COMPLETE 
3¢ 
3¢ CHECK IF THE TRANSFER OCCURED CORRECTLY 
3¢ 
8 IF (R1) NEQ 0377 THEN 
3 ERROR TRANSFER DID NOT EXECUTE CORRECTLY 
’ ENDIF 
3 
s ENDTST 
a 


$F SSSHSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSHSSSSSSSSSHHSSSSHSSSEEEHESEESE 


s@TEST 60 UNIBUS DEVICE DATOS CYCLE TEST 
§ SOCCOOSSOSCESEESSESEESESESESSSSEOSEESEESEESEEEEOESEEEESEEEEEEEEE 
TST60: 
JSR PC, TUBE s INITIAL Tre 
Ov RTBU .R1 s GET POINTER TO WRITE BUFFER 
CLR (R1) i QuT THE LOCATI 
MOV 077777 ,@BE1068 ; SET DATA OUFFER 
MOV @-1,@BE1CC s SET FOR 1 DATA 
Ov R1,@BE1BA s POINT UBE XFER TO WRITE BUFFER 


8 

s 00 THE TRANSFER 

i 
Ov 03441,GBE1CR1 ; SE 

S$: BIT OOIT7,GBEICR1 =; hs 


BEQ Ss : 
i 
: CHECK THE TRANSFER 
L 
cre (R1),0377 1 WAS THE TRANSFER CORRECT ? 
EQ TST61 +1 YES GO TO THE NEXT TEST 
ERROR «33 1 ERROR TRANSFER WAS INCORRECT 


| 
| 
Ler (R1) := O sCLEAR OUT THE LOCATION 
| 
| 
| 
| 


KTJ11-8 DIAGNOSTIC 
TEST - UNIBUS DEVICE DATIP CYCLE 


012777 


C10 


MACRO M1200 05-OCT-84 09:24 PAGE 59 


002450 


001734 
000010 
052525 


001734 161072 


SEG 0119 


-SBTTL TEST - UNIBUS DEVICE DATIP CYCLE 


3¢ THIS TEST WILL SEE IF THE KTU11-8 MODULE CAN EXECUTE 
@ A UNIBUS DEVICE DATIP CYCLE. 


$ 

; GBGNTST 

3¢ 

s¢ INITIALIZE WRITE BUFFER FOR DATIP CYCLE 
te 

: LET R1 :© POINTER TO WRITE BUFFER 

: DO FOR R2 := 1 10 8 

8 . LET (R1)>+ :* 652525 

’ ENDOO 

3¢ 

s¢ «6SET UWP UBE TO DO 8 DATIP’S TO WRITE BUFFER 

3¢ 

’ LET BE1BA :° ADDRESS OF WRITE BUFFER 


LET BEICC := -8. sSET FOR 6 TRANSFERS 
= UBE FOR NPR-DATIP-1 XFER 


3 
$ 

’ SET OFF THE TRANSFER 

: WAIT FOR TRANSFER TO BE COMPLETE 
: 

s@ CHECK IF DATIP WAS EXECUTED CORRECTLY 
: 

: LET Ri :* ADDRESS OF WRITE BUFFER 
: DO FOR R2 := 1 10 8 

$ 

: 

’ 

3 

$ 

: 

’ 


IF (R1>+ MEQ 125252 THEN 
. ERROR TRANSFER DID NOT EXECUTE CORRECTLY 


seTEST 61 UNIBUS DEVICE DATIP CYCLE TEST 
§ SOSSOOSOOSSOOSESEOOESESEOSEESESEESESSEEOESEESESEESOSEESECEEOEECS 
TST61: SCOPE 

JSR PC, TUBE s INITIALIZE THE UBE 


s 
s INITIALIZE WRITE BUFFER FOR DATIP CYCLE 
: 


mov ORTBUF Ri s GET POINTER 10 WRITE BUFFER 
Ov 06. ,R2 s SET WP LOOP COUNTER 

S$: MOV 052525 ,(R1)+ ’ ayy WRITE BUFFER LOCATION 
SOB R2,58 s . MAVE WE DONE IT 6 TIMES ? 


’ 
s SET WP UBE TO 6 DATIP’S TO WRITE BUFFER 
i 


MOV OURTBUF ,SBEIBA ; SET UP UBE TO WRITE BUFFER 


KTJ11-8 OIAGNOSTIC 


UNIBUS DEVICE DATIP CYCLE TEST 


4956 021102 


005077 161074 
012777 177770 
012777 002441 
032777 000200 


D10. 
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#8117, GBEICRi 
10% 


: 
s CHECK IF DATIP WAS EXECUTED CORRECTLY 


MOV ORTBUF ,R1 
MOV o6. oR2 

15%; CMP (R1)+, 0125252 
BEQ 208 
ERROR +33 

208: S08 R2,158 


SEQ 0120 


8 
s SET UP FOR 6 TRANSFERS 

s SET UP UBE FOR NPR-DATIP-1 XFER 

s IS THE TRANSFER COMPLETE ? 

s NO, THEN WAIT FOR IT TO BE * COMPLETE 


s GET POINTER TO WRITE BUFFER 
oop ER 


| HAVE WE CHECKED ALL THE XFERS 
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SE@ 0121 
TEST - UNIBUS DEVICE I/0 PAGE READ CYCLE 

4972 .SBTTL TEST - UNIBUS DEVICE I/0 PAGE READ CYCLE 
4973 f 
4974 3@ THIS TEST WILL SEE IF THE KTJ11-B8 MODULE CAN EXECUTE | 
4975 3@ A UNIBUS DEVICE 1/0 PAGE READ CYCLE. THIS CONSISTS OF 
4976 3¢@ THREE DIFFERENT TYPES OF READS : 
4977 3¢ 
4978 3% 1. UNIBUS DEVICE PMI I/0 PAGE READ CYCLE 
4979 ie 2. UNIBUS DEVICE BOOT ROM READ CYCLE 
4980 os 3. UNIBUS DEVICE MAP REGISTER READ CYCLE. 
4961 
4962 - IT ALSO WILL CHECK THAT A UNIBUS DEVICE READ ae NOT 
4985 3¢ OF THE ABOVE THREE TYPES SHOULD CAUSE A TIMEOU 
4384 3¢ 
4985 3 
4986 3: BGNTST 
4967 3% 
nine 3¢ OO A UNIBUS DEVICE PHI I/0 PAGE READ CYCLE 
4 3¢ 
A930 3 LET BE1BA “6 ADORESS OF CSR OF MEMORY BOARD 
4991 3 LET BEICC := -1 sSET FOR 1 TRANSFER 
4992 3 SET UBE Fae “a NPR-DATI-1 DATA XFER 
4993 3 SET OFF THE TRANSFER 
49a 3 WAIT FOR THE TRANSFER TO BE COMPLETE 
4995 3 IF BE108 NEQ CONTENTS OF MEMORY CSR THEN 
4335, 3 ERROR UNIBUS DEVICE PMI I/0 PAGE READ CYCLE DID NOT EXECUTE CORRECTLY 
4997 3 ENDIF 
4996 3% 
4999 3* DO A UNIBUS DEVICE BOOT ROM READ CYCLE 
5000 3% 
$001 3 LET BE1BA := — 
5002 3 LET BEICC : :SET FOR 1 TRANSFER 
5003 3 SET UBE FOR A “feR-DATI- 1 DATA XFER 
5004 3 SET OFF THE TRANSFER 
5005 3 WAIT FOR THE TRANSFER TO BE COMPLETE 
5006 : IF BE108 NEQ 80173000 THEN 
5007 3 . ERROR UNIBUS DEVICE BOOT ROM READ CYCLE DID NOT EXECUTE CORRECTLY 
50068 3 ENDIF 
5009 3¢ 
oe 3* DO A UNIBUS DEVICE MAP REGISTER READ CYCLE 

3% 
5012 ’ LET BE1BA := 770200 sUNIBUS MAP REGISTER #0 
$013 3 LET BEICC := -1 SSET FOR 1 TRANSFER 
5014 Hy SET UBE FOR A NPR-DATI-1 DATA XFER 
5015 ry SET OFF THE TRANSFER 
5016 4 WAIT FOR THE TRANSFER TO BE COMPLETE 
5017 ry IF BE108 NEQ 80770200 THEN 
5018 Fy . ERROR UNIBUS DEVICE MAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 
5019 F ENDIF 

3¢ 
$021 38 DO AN ILLEGAL UNIBUS DEVICE I/0 PAGE READ CYCLE 
$022 3% 
5023 r LET BE1BA ;:= i tee 777732, 777734 s0CSR,DDOR,KMCR ADDRESS 
S024 LET BEICC := -1 31 DATA TRANSFER 
a SET UBE FOR le ntl -1 DATA XFER 


WAIT FOR THE TRANSFER TO BE COMPLETE 
IF TRANSFER DID NOT TIMEOUT THEN 


’ 
; SET OFF THE TRANSFER 
‘ 
’ 





KTJ11-8 DIAGNOSTIC MACRO M1200 05- 
TEST - UNIBUS DEVICE 1/0 PAGE READ CYCLE 


5030 

$031 

5032 

$033 

5034 

5035 

5036 
021134 000004 

5037 

5038 021136 004737 002450 

5039 

5040 

5041 

S042 

5043 021142 013777 001732 161004 

5044 021150 012777 161004 

5045 021156 012777 177777 160766 
021164 012777 002041 160764 

5047 021172 032777 000200 160756 

5048 02 001774 

5049 

5050 

5051 

S052 02 027777 160524 160740 

S053 021210 001401 

5054 021212 104035 

5055 

5056 

$057 

5058 021214 012777 173000 160732 
02 012777 000003 160732 

5060 021250 012777 177777 160714 

5061 021236 012777 002041 160712 
02 032777 000200 160704 

5063 021252 001774 

Se 

5065 

5066 

5067 021254 052737 000200 177520 
02 023777 173000 160660 

5069 021270 001401 

5070 021272 104033 

$071 

5072 

5073 

5074 021274 012777 170200 160652 

SO7S 021302 012777 3 160652 

5076 021310 012777 177777 160634 

5077 021316 012777 002041 160632 

5076 021324 032777 000200 160624 

5079 021332 001774 

5060 

5061 

5062 


F10 
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. ERROR AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 


3 
F ENDIF 
3 
s ENDTST 
3 
3 eae nn ee ee ee ee ee 
MwEIII Iii iiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiititiitTittitttT 
s*TEST 62 DEVICE I/0 PAGE READ CYCLE 
WEITIIIIITiiiiiiiitiiiiiitiiiiiiiiiiiiiiitiiitiiiiiiiiiiitit titty 
TST62: SCOPE 
JSR PC, IUBE 3: INITIALIZE THE UBE 
3 
: DO A UNIBUS DEVICE PMI I/0 PAGE CYCLE 
3 
MOV MCSR , SBE 1BA 3s GET ADORESS OF MEMORY CSR ADDRESS 
MOV 03 ,@BE1CR2 3 T THE UPPER TWO ADORESS BITS 
MOV @-1,@BE1CC 3; SET FOR 1 TRANSF 
MOV 02041 ,@BE1CR1 s SET UBE FOR NPR-DATI-1 XFER 
5% BIT @6IT7, @BE1CR1 3 ARE WE DONE THE TRANSFER ? 
BEQ Sé 3s NO, THEN FOR WAIT FOR IT TO 
3 CHECK OUT THE TRANSFER 
3 
CMP @ncsR , @BE 1068 3 WAS THE TRANSFER CORRECT 
BEQ 108% s YES, THEN GO DO BOOT ROM READ 
ERROR 33 3s NO, THEN ERROR IN READ CYCLE 
3 
s 0O A UNIBUS DEVICE BOOT ROM READ CYCLE 
3 
108: MOV #173000,GBE1BA ; GET ADDRESS OF OF THE BOOT ROM 
MOV 03 ,@BE1 3s SET THE UPPER TWO ADDRESS BITS 
MOV @-1,@BE1CC s SET FOR 1 TRANSF 
MOV 1,@BE1CR1 3s SET UBE FOR NPR-DATI-1 XFER 
15%: BIT @6IT7,@BE1CR1 3 ARE WE DONE THE TRANSFER ? 
BEQ 15% 3s NO, THEN FOR WAIT FOR IT TO 
8 
3 CHECK OUT THE TRANSFER 
BIS @8IT07 ,BCSR 3s SELECT RIGHT ROM 
CMP 80173000,8BE108 ; WAS THE TRANSFER CORRECT 
BEG 20% s YES, THEN GO DO UNIBUS DEVICE MAP REGISTER READ 
ERROR 33 3 NO, THEN ERROR IN READ CYCLE 


a 

s 0O A UNIBUS DEVICE MAP REGISTER READ 
3 
20%: 


MOV #170200,6BE1BA ; GET ADDRESS OF THE MAP REGISTER 

MOV 3, GBE1CR2 s SET THE UPPER TWO ADORESS BITS 

MOV @-1,@BE1CC s SET FOR 1 TRANSFER 

MOV 02041,GBE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 
25%; BIT @6IT7,GBE1CR1 ; ARE WE DONE THE TRANSFER ? 

BEQ 25% s NO, THEN FOR WAIT FOR IT TO 


; CHECK OUT THE TRANSFER 
: 


KTJ11-8 DIAGNOSTIC 


Té2 
5063 021334 


5110 021470 
5111 021474 
S112 


012777 
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UNIBUS DEVICE 1/0 PAGE 


170200 


READ CYCLE 
160606 CMP 
BEQ 
ERROR 
F 
: DO AN ILLEGAL 
3 
160610 30%: MOV 
160604 MOV 
MOV 
MOV 
318: MOV 
160556 MOV 
160540 MOV 
160536 MCV 
MTPS 
160524 35%: BIT 
BEQ 
Woe 
NOP 
ERROR 
MTPS 
BR 
40%: Ad 
160500 BIT 
BNE 
Er 20R 
45%: TST 
JSR 
so8 


80170200, 6BE108 ; 
30% 


33 


UNIBUS DEVICE 1/0 


040% , BBE1VEC 
tae 


#3,R1 
#177730 ,R2 


Ri, 31% 


SE@ 0123 


WAS THE TRANSFER CORRECT 
YES, THEN GO 00 ILLEGAL UNIBUS DEVICE I/0 READ 
«THEN ERROR IN READ CYCLE 


PAGE READ 
SET UP INTERRUPT VECTOR 


OO FOR 3 REGISTERS 

STARTING WITH DCSR (THEN DOR, KMCR) 
GET ADDRESS OF THE DIAGNOSTIC — 
UPPER TWO ADORESS BIT 


1 TRANSFER 
SET UBE FOR se XFER 
LOWER PRIORITY 
ARE WE DONE THE TRANSFER ? 
NO, THEN FOR WAIT FOR IT TO 
WAIT FOR INTERRUPT 


ERROR KTJi1 RESPONDED TO AN ILLEGAL ADORESS 
RAISE PRIORITY BACK 


CLEAN UP THE STACK AND THEN GO DO NEXT TEST 
NXM SET? 

IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 

GET ADDRESS OF NEXT REGISTER 

CLEAN UP UBE 

DO FOR ALL 3 REGISTERS 


5148 TRANSFER 
5149 WAIT FOR THE TRANSFER TO BE COMPLETE 
5150 IF MAP REGISTER 0 NEQ 
5151 ° UNIBUS DEVICE MAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 
sis oo 
* 
to * DO A UNIBUS DEVICE TO BOOT ROM WRITE CYCLE 
& 
5156 LET BE1BA := 773000 


¥ 
= 


5157 LET BEICC := -1 sSET FOR 1 TRANSFER 
SET UBE FOR A NPR-DATO-1 DATA XFER 
TRANSFER 
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SEQ 
TEST - UNIBUS DEVICE 1/0 PAGE WRITE CYCLE “me | 
5114 .SBTTL TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
5115 
5116 3@ THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
$5117 3@ A UNIBUS DEVICE I/0 PAGE WRITE CYCLE. THIS CONSISTS OF 
5118 3@ TWO DIFFERENT TYPES OF WRITES : 
5119 Hed 
$120 3¢ 1. UNIBUS DEVICE PMI I/O PAGE WRITE CYCLE 
Si2l a 2. UNIBUS DEVICE MAP REGISTER WRITE CYCLE. 
Si22 
5123 oo IT ALSO WILL CHECK THAT A UNIBUS DEVICE WRITE CYCLE NOT 
aoss 3@ OF THE ABOVE TWO TYPES SHOULD CAUSE A TIMEOUT. 
5 3% 
5126 3 
$127 : ®BGNTST 
5128 3 
5129 16 
ao :¢ DO A UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE 
34 
$132 3 LET BE108 := S2525 
5133 LET BE1BA := ADORESS OF CSR OF MEMORY BOARD 
5six« LET BEICC := -1 3SET FOR 1 TRANSFER 
5135 SET UBE FOR A NPR-DATO-1 DATA XFER 
5136 SET OFF THE TRANSFER 
5137 WAIT FOR THE TRANSFER TO BE COMPLETE 
5138 IF CONTENTS OF MEMORY CSR NEQ 52525 THEN 
5139 - ERROR UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE DID NOT EXECUTE CORRECTLY 
aig = 
Py ¢ DO A UNIBUS DEVICE MAP REGISTER WRITE CYCLE 
& 
LET BE108 := 52525 sDATA PATTERN 
5145 LET BE1BA ss * ae sUNIBUS MAP REGISTER #0 
5146 LET BEICC : iSET FOR 1 TRANSFER 
5147 SET UBE FOR a “feR-DATO- 1 DATA XFER 

5159 : SET OFF THE 

5160 3 WAIT FOR THE TRANSFER TO BE COMPLETE 

5161 3 IF NO TIMEOUT THEN 

5162 3 . ERROR UNIBUS DEVICE BOOT ROM WRITE CYCLE DID NOT EXECUTE CORRECTLY 

5163 8 ENDIF 

5164 3% 

ae s* DO AN ILLEGAL UNIBUS DEVICE I/0 PAGE WRITE CYCLE 

4% 

5167 F LET BE108 :* 52525 ;DATA PATTERN 

5168 F LET BE1BA := 777730,777732, 777734 s0CSR, DOR, KMCR ADDRESSES 
5169 $ LET BEICC :2 -1 i DATA TRANSFER 
5170 3 SET UBE FOR NPR-DATO-1 DATA XFER 





ne Ee ben dl dite a ee a eee Ee ered Ce ee ee ee ee 


5223 021700 
S224 


KTJ11-8 OIAGNOSTIC 
TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 


000004 
004737 


017737 


I10 
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000025 


SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO BE — 


ENDIF 
DISABLE UNIBUS MAPPING 


- oo oe o oe G oe Ge Ge 
— 


8 i SSSSSSSSSSSSSSSSSHSSHS ASSSHSSSHSSSESESOHAHSSESESESEEEEKEKEEESEEEE 


seTEST 63 UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
j POCSSOSSSSSESEESESESESELEDSESESESESESESESEEEESERESEEEDEDEEESESES 
TST63: SCOPE 
JSR PC, TUBE s INITIALIZE THE UBE 
3 
s DO A UNTBUS DEVICE PMI I/0 PAGE CYCLE 
: 
001160 MOV GNCSR , $THPO s STORE MEMORY CSR 
160434 MOV MCSR, s GET ADDRESS OF MEMORY CSR 
160434 MOV 03, GBE1 s SET UPPER TWO ADORESS BITS 
160414 MOV #61714,G8E108 ; GET WRITE PATTERN 
160410 MOV @-1,@BE1CC s SET FOR 1 XFER 
160406 MOV 03041,GBE1CR1 ; SET UBE FOR NPR-DATO-1 XFER 
160800 5%: BIT @6IT7,@BE1CR1 ; IS THE TRANSFER COMPLETE ? 
BEQ S$ * 4 NO, THEN WAIT FOR IT TO COMPLETE 


160144 BIT — .GNCSR 


3 

3 CHECK THE TRANSFER 

WAS THE TRANSFER CORRECT ? 

YES, THEN GO DO A MAP REGISTER WRITE 
ERROR +33 NO, THEN ERROR IN THE TRANSFER 


$ 
: DO A UNIBUS DEVICE MAP REGISTER WRITE CYCLE 


3 
160132 10%: MOV $¢TMPO, GMCSR s RESTORE MEMORY CSR 
: a MAPLOO s CLEAR MAP REGISTER PAIR 
5 
160336 MOV 138A ; GET ADDRESS OF MAP REGISTER 
160336 MOV #3, SBE1CR2 s SET UPPER TWO ADORESS BITS 
160316 MOV s GET WRITE PATTERN 
160312 MOV @-2,@B€1CC s SET FOR 2 XFER 
160310 MOV 03041 ,@BE1 s SET UBE FOR NPR-DATO-1 XFER 
15% BIT @6IT7,@BE1CR1 ; IS THE TRANSFER COMPLETE ? 
BEQ $ s NO, THEN WAIT FOR IT TO COMPLETE 
a 
s CHECK THE TRANSFER 
052524 MAPLOO , #52524 WAS THE TRANSFER CORRECT ? 


E 
170202 16%: “ aa 


YES, THEN GO DO A MAP REGISTER WRITE 
NO, THEN ERROR IN THE TRANSFER 
SECOND WORD OK 100? 

IF SO, BRANCH 

NO, THEN ERROR IN THE TRANSFER 


° 
w 
ww 
o- oe Ge oe ee oe 


me ee ee ee eee 





ee eee 
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T63 


5271 022150 


012777 
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WRITE CYCLE 
; DO A WRITE CYCLE TO BOOT ROM THAT SHOULD CAUSE A TIMEOUT 


UNIBUS DEVICE 1/0 PAGE 


173000 
177777 
021764 
000340 
003041 


000140 
160206 


000340 
000004 


160164 


160024 


3 
17%: 


18%: 


19%: 


21%: 


35%: 


Lt ary oPE CELE 


GAL 


BEE EEE EEE Pe 


04 SP 
@BITOS , BBE1CR2 
20% 

33 


UNIBUS DEVICE 1/0 


APRS 
03041, SBE1CR1 
PSW 
@6IT7,@BE1CR1 
25% 


PC, IUBE 
R1,21% 


ADORESS TO WRITE TO 
1 CYCLE 

POINT INTERRUPT VECTOR TO PROGRAM 
AT PRIORITY 7 

1 DATO-NPR 

LOWER PRIRITY 


DONE ? 

WAIT TILL DONE 

DION’ T TIMEOUT ON BOOT ROM WRITE 
RAISE PRIORITY 


ADJUST STACK 

NXM SET? 

IF SET, BRENCH 

NXM NOT SET ON BOOT ROM WRITE 


PAGE WRITE CYCLE 


CLEAN UP UBE 
DO FOR DCSR,DOR,KMCR 
START WITH OCSR 

SET UP TIMEOUT VECTOR 


GET ADDRESS OF THE DIAGN. REGISTER 
SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 1 XFER 


ENABLE UNIBUS MAPPING 

SET UBE FOR NPR-DATO-1 XFER 
LOWER PRIORITY 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TC COMPLETE 
WAIT FOR INTERRUPT 


ERROR - AN ILLEGAL CYCLE DID NOT TIMEOUT 
RAISE PRIORITY BACK 


ADJUST THE STACK AND GO TO NEXT TEST 
WXM SET? 

IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 
GET NEXT DIAGNOSTIC REGISTER 
INITIALISE UBE 

DO FOR ALL OF THEM 


——_—---— -——} 


KTJ11-8 DIAGNOSTIC 
TEST - MAPPING REGISTERS TEST USING USE 


00502 
022701 
101337 


ee | 


K10 
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177777 
002041 
157646 


000052 


170376 


157710 
157706 


157664 


157654 
157652 


157630 


SEQ 0127 


-SBTTL TEST - MAPPING REGISTERS TEST USING UBE 


3* THIS TEST WRITES DIFFERENT PATTERNS TO MAPPING REGISTERS USING 
s# DATI AND DATO CYCLES THRU UBE. 


BGNTST 


ENABLE UNIBUS MAPPING 
WRITE ALL. MAPPING REGISTERS WITH “10” PATTERN 
READ ALL REGISTERS BACK CLEARING THE ONE JUST READ 
IF ANY REGISTER DOES NOT HAVE THE PATTERN 

ERROR IN WRITING TO MAP REGISTERS 


} SSOSSSSSSESESESESSESEESESEEERESEESESESEESEESESEESEDEESEEEEESESES 
s*TEST 64 ING REGISTERS TEST USING UBE 


§ §9O0060000000000000000000000000000000000000000000000600000000008 
TST64: SCOPE 
JSR PC, IUBE 3; CLEAN UP UBE 


3 
s DO DATO TO ALL 100 REGISTERS WITH 125252 AS PATTERN 
: 


MOV @MAPLOO,SBE1BA ; THE STARTING ADORESS 
MOV @-100, @BE1CC 3 80 WORDS TO WRITE TO 
MOV #125252 .GBEi08 ; THE PATTERN TO BE WRITTEN 
MOV #3 ,a8E1CR2 s ADORESS <17-16> 
MOV 03041, @BE1CR1 : GO DATO’ 
1s TST6 SBE1CR1 s DONE BIT SET? 
BPL is 3 WAIT 
3 
; CHECK THAT ALL REGISTERS WRITTEN OK 
3 
MOV @MAPLOO.R1 3 START WITH MAP REGISTER 1 
MOV R1,aBE 3s STARTING ss 
2s MOV @-1,@BE1CC s . 0O WST 1 CYCL 
MOV €2041,GBE1CR1 ; . DATI FROM LOW MAP REGISTER 
3%: TSTB @BE1CR1 s . OONE BIT SET? 
BFL 3% 3s . IF NOT, WAIT 
CMP #125252.GBE1068 ; . READ OK? 
BEQ 4¢ s . IF SO, BRANCH 
+33 3 . ERROR IN WRITING AND READING MAP REGISTERS 
at MOV @-1,@BE1CC 3 . NOW DO HIGH MAP REGISTER 
MOV @2041,@BE1CR1 ; . DATI FROM HIGH REGISTER 
Ss TSTB @BE1CR1 s . DONE BIT SET? 
BPL 5% s . IF NOT, WAIT 
CMP #52 , @BE 108 s . READ OK? 
BEQ 6% s . IF SO, BRANCH 
ERROR +33 s . ERROR IN WRITING AND READING MAP REGISTERS 
6%: CLR (R1)« s . CLEAR REGISTER JUST WRITTEN 
CLR (R1)+ ’ 
cmp Ri s . ALL DONE? 
BHI ; . IF NOT, BRANCH 
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SEQ 01 
TEST - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 2 

5327 -SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 
5328 
5329 :¢@ THIS by WILL SEE IF THE CACHE OPERATES CORRECTLY 
5330 3@ WHEN A UNIBUS DEVICE READ CYCLE IS DONE 
5331 34 
5332 : 
5333 ; BGNTST 
5334 ; 
5335 : ENABLE THE CACHE 
soos 3 ENABLE UNIBUS MAPPING 
533 3¢ 
+4 3 CHECK INITIAL SETTING OF THE CACHE VALID BITS 

3% 
5340 : SELECT THE CACHE VALID BITS 
5341 ’ IF KMCR <15-9> NEQ tBO0000000 THEN 
seat : . ERROR IN THE CACHE 

3 


5344 3¢ 
cose 3@ CHECK INITIAL SETTING OF THE CACHE AVAILABILITY BITS 
3% 
5347 3 SELECT THE CACHE AVAILABLE SET BITS 
5348 3 IF KMCR <14-9> NEQ *8111111 THEN 
5349 3 . ERROR IN THE CACHE 
5350 3 ENDIF 
5351 3¢ 
5352 3* GO 00 TWO CONSECUTIVE READS 
$353 3@ THE FIRST WILL ALLOCATE SET A 
io. 3@ THE SECOND WILL CAUSE A CACHE HIT IN SET A 
3% 
5356 3 LET MAP REGISTER 1 POINT TO LOCATION 2000 
5357 F LET BE1BA := 20000 sOCTAL BOUNDARY READ 
5358 3 LET BEICR2 := 0 ;CLEAR UPPER 2 ADDRESS BITS 
5359 8 LET BEICC := -2 3SET FOR TWO TRANSFERS 
360 3 SET UBE FOR NPR-DATI-1 XFER 
5361 3 SET OFF THE TRANSFER 
5362 3 WAIT FOR THE TRANSFER TO COMPLETE 
5363 F OISABLE UNIBUS MAPPING 
5364 $ TURN OFF THE CACHE 
i. 3 SELECT THE CACHE VALID BITS 
38 
ee 3 CHECK IF THE CACHE OPERATED CORRECTLY 
3% 
5369 3 IF KMCR <15-9> NEQ@ 81001000 THEN 
on F io CACHE DID NOT GET UPDATED CORRECTLY 
. 
5372 3 SELECT THE CACHE AVAILBILITY BITS 
5373 3 IF KMCR <15-9> NEQ 81000111 THEN 
5374 3 . ERROR CACHE DID NOT OPERATE CORRECTLY 
5375 3 ENDIF 
5376 3 
5377 3; ENDTST 
5378 F 
5379 Brrr rrr errr cee n eee e www e nee n een n cee ceneee 
5380 
5381 § $9SSS000066606006866666666666666666660006606000060800006006000606000068 
s*TEST 65 UNIBUS DEVICE CYCLE WITH CACHE ENABLED 


$F SOSSSSSSSSSSSSSSSSSESSESSSSSSSSHSSESHSSSSSSSSHSSEHEEHEEHSEEEEEEEEE 
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UNIBUS DEVICE CYCLE WITH CACHE ENABLED 
022336 000004 TST6S: SCOPE 
022340 004737 002450 JSR 1 : INITIALIZE THE UBE 
022344 052737 000100 177734 61S @BIT6,KMCR : ENABLE THE DMA ae 
022352 032737 000100 177734 BIT @BIT6,KMCR s IS THE CACHE PRESENT ? 
022360 001002 BNE is s IF YES, CONTINUE WITH TEST 
022362 000137 022766 JP s€oP 3; OTHERWISE, DO END OF PASS 
022366 012737 160000 170374 1%: MOV #160000,MAPL37 ; INITIALIZE MAP REGISTERS 
022374 012737 000077 170376 o77, 3 
022402 005037 170200 CLR ; 
022406 005037 170202 CLR F 
022412 052737 000040 172516 BIS BITS .PORS ; ENABLE UNIBUS MAPPING 
022420 052737 000400 177730 BIS @8ITO6 ,OCSR ; ENABLE DIAGNOSTIC MODE 
022426 042737 000400 177734 BIC eBITOS, ; MAKE SURE THAT VALID BITS SET 
022434 042737 000400 177730 BIC @8ITOS ,OCSR ; DISABLE DIAGNOSTIC MODE 
022442 S$: 

3 

; GO 00 TWO CONSECUTIVE READS STARTING AT A OCTAL BOUNDARY. 

; THE FIRST READ WILL ALLOCATE CACHE SET A. THE SECOND READ 

; WILL CAUSE A CACHE HIT IN SET A 

F 

012737 000200 170204 10% MOV @200 , MAPLO1 ; POINT MAP REGISTER TO LOCATION 200 

022450 005037 170206 CLR MAPHO1 
022454 012777 020000 157472 MOV #20000 , EBE ; SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
022462 012777 000000 157472 MOV @0,GBE1 ; CLEAR UPPER 2 ADORESS BITS 
022470 012777 177776 157454 MOV €-2,@BE1CC ; SET UBE FOR TWO TRANSFERS 

3 

; GO 00 THE TRANSFER 

3 
022476 012777 002041 157452 MOV @2041.,@BE1CR1 3; SET UBE FOR NPR-DATI-1 ~— 
022504 032777 000200 157444 15%: BIT @6IT7, @BEICR1 ; IS THE TRANSFER COMPLETE ? 
022512 001774 BEQ 15% 3; NO, THEN WAIT FOR IT TO BE COMPLETE 


022520 042703 000777 BIC 
022524 022703 110000 cep 
022530 001401 BEQ 
022532 1040353 ERROR 
005037 172516 20%: CLR 
022540 042737 000100 177734 BIC 
022546 023777 000202 157374 chp 
022554 001401 BEQ 
022556 104033 ERROR 


— LE 


PUT KMCR INTO R3 FOR MASKING 

MASK OUT BITS 0 

ARE THE BITS set CORRECTLY ? 

YES, THEN GO CHECK THE AVAILIBILITY BITS 
IN DMA CACHE 


ort 
agra 
Pe 


AND CACHE 
DATA READ OK? 
s3IF OK, EXIT TEST 
; OTHERWISE ERROR IN CACHE 
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000012 


157276 
157276 
157260 


157256 
157250 


177734 


172100 


.SBTTL TEST - WRONG PARITY AND CACHE 


SEQ 0130 


3 THIS TEST VERIFIES THAT IF DATA RECIEVED HAS BAD PARITY IT DOES NOT 
3@ GET ALLOCATED IN CACHE. 


BGNTST 
WRITE LOCATION WITH BAD PARITY 


USING UBE DO DATI FROM THAT LOCATION 
IF KMCR BITS ARE NOT IN RESET CONDITION THEN 


ENDIF 


js CSSSSSSESSSSSSRESEDSEEESEEESESEEESEESERESERESEEEEEEESESEEESEEES 
s*TEST 66 


3 § SSSHSSHSSSSSSSSSHSSSSSSSSSSSHSSHESSSSSSSSSSHSSSHSSHHKSHSKESEEEEEES 
TS SCOPE 


16%: 


UBEM: 


JSR PC, IUBE 

BIS @BITO2]!BI TOO, 80172100 
BIC @3740 ,80172100 
CLR 800 

BIC @6ITO2 , 80172100 
BIS SBI TOS ,PORS 

BIC @BIT06 ,KMCR 

BIS @6ITO6, 

MOV @0 ,MAPLO1 

CLR 1 

MOV #20000 , SBE 1BA 
MOV 0, GBE1 

MOV @-1,@BE1CC 

THE TRANSFER 

MOV €2041,@BE1CR1 
BIT @61T7, @BE1CR1 
BEQ 15% 

BIT #177000 ,KMCR 
BEQ 16% 

ERROR +32 

CLR ae0 

CLR MARS 

BIC #8ITOO ,80172100 


WRONG PARITY AND CACHE 


CLEAR UBE 

SET WRONG PARITY IN MEMORY CSR 
CLEAR CHECK BITS 

WRITE LOCATION O WITH WRONG PARITY 
CLEAR WRONG PARITY 


ENABLE MEMORY MAPPING 
DISABLE JUST TO MAKE SURE 


ENABLE CACHE 
POINT MAP REGISTER TO LOCATION 200 


SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
CLEAR UPPER 2 ADDRESS BITS 
SET UBE FOR TWO TRANSFERS, 


SET UBE FOR NPR-DATI-1 XFER 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TO BE COMPLETE 
WAS ALLOCATED? 

IF NOT, BRANCH 

IF WAS, REPORT ERROR 

REWRITE O WITH RIGHT PARITY 

CLEAR MAPPING ENABLED 


£ § SSSSSSSSSSSSSSSSSSSESSSSSSSESSSSSSSSSSESESSESSSSESSHEKESEKESEESEERE 

s*TEST 67 

j FPCSSSHSSSESSSSSSESEEEEESESSEEEESESESEEEEEEESEEEEEDEREREREEEES 
OPE 


TST67: 


DUMMY TEST 
Sc 
CMP #1, $PASS 
BNE s€0P 
MOV #12, $EOPCT 
MOV #12, $ENOCT 


s SECOND PASS? 

: IF NOT, GOTO EOP 
3 

; 


PRINT EVERY 10TH 


Bil 
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SEQ 0131 

767 DUMMY TEST 

54768 5 

3479 3s END OF PASS ROUTINE 

5480 3 

5481 

5482 -SBTTL END OF PASS ROUTINE 


WEL rrr iririiiiriir itt i titty) 
s@INCREMENT THE PASS NUMBER ( SPASS) 

s@INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s¢IF THERES A MONITOR GO TO IT 


022766 sEOP: 
022766 000004 
022770 005037 001102 CLR ¢TSTNM 33ZERO THE TEST NUMBER 
022774 005037 001164 CLR sTIMES 33ZERO THE NUMBER OF ITERATIONS 
023000 005237 001206 INC 6PASS ss INCREMENT THE PASS NUMBER 
023004 042737 100000 001206 BIC #100000 , PASS ot T ALLOW A NEG. NUMBER 
023012 005327 DEC CPC )> 3 3sLO00P? 
023014 000001 sEOPCT: .WORD 1 
023016 003055 T ¢00AGN 33 YES 
3020 012737 MOV (PC )>, AC PC)> ssRESTORE COUNTER 
023022 000001 sENDCT: 1 
023024 023014 sEOPCT 
005737 002574 TST UQUIET 3sNO MESSAGE IF RUNNING UFD QUIET MODE 
023032 001037 BNE 1s 
023034 104401 023042 TYPE 65% pd hay ASCIZ STRING 
023040 000407 Sas T OVER THE ASCIZ 
33658: ASCIZ <12><15>/END PASS @/ 
023060 645: 
023060 013746 001206 MOV sPASS, -( SP) ot sPASS FOR a 
83 PASS 
023064 104405 TYPOS 33G0 s aical tiem ASCII WITH SIGN 
3056 104401 023074 TYPE 678 wer ASCIZ STRING 
023072 000412 6&6 T OVER THE ASCIZ 
33678; ASCIZ / TOTAL ERRORS; / 
023120 66%: 
023120 013746 001112 MOV SERTTL, -( SP) s3sSAVE SERTTL FOR TYPEOUT 
ssTOTM NUMBER OF ERRORS 
023124 1046405 TYPOS 3:G0 TYPE--DECIMA ASCII WITH SIGN 
atsy 4 104401 001175 TYPE . SCRLF + TYPE CARRIAGE RETURN, LINE FEED 
023132 013700 000042 $GET42: MOV 8042 ,RO 33GET MONITOR ADDRESS 
0235136 001405 6EQ 6 UW AGN 3 sQRANCH IF NO MONITOR 
023149 000005 RESET ssCLEAR THE WORLD 
023142 004710 SENDAD: JSR PC ,CRO) 33GO TO MONITOR 
023144 000240 we 33sSAVE ROOM 
023146 000240 hae 33° OP 
023150 000240 NDP ssACT1i1 
023152 tOOACAN: 
023152 000137 JSP OPC )+ + sRE TURN 
023154 003270 SRTNAD: . WORD RESTART 
023156 377 377 00O SsEMAL: a -1,-1,0 ssNULL CHARACTER STRING 
5483 
5484 s 
5485 s SYSMAC ROUTINES 
S486 r 
5487 
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END OF PASS ROUTINE 


001000 177520 


155740 
023230 
177060 
000004 
155672 


001103 
155626 
001106 


155574 


001104 


- SBTTL 


sSCOPE - ENABLE 
sAT END SO TESTS WILL NOT BE 
TEST S TO REPORT 


Cil 
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SEG 0132 


HALT-ON-BREAK BETWEEN TESTS, SO APT CAN CATCH IT. DISABLE 


INTERRUPTED BY 
ERRORS WHEN THERE ARE REALLY 


E 408 
APT BREAKS WHICH CAUSES CERTAIN 
NONE . 


} COSCO OOSOOSSOSSESOSEEEESEESEOSEEEEEEEOSESEOEOEEEEOOEEEECEEEEES 

s@THIS ROUTINE CONTROLS THE INCREMENT 

s@AND LOAD THE TEST NMUMBER( ¢TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
FLAG ee Bay. DISPLAY<15:06> 


s@AND LOAD THE ERROR 
jeTHe SWITCH OPTIONS PROVIDED BY 
LOOP ON TEST 


LOOPING OF SUBTESTS. 


IT WILL 


ROUTINE ARE: 


3eSW14e) 
s@SW1l°1 INHIBIT ITERATIONS 
3@SW09*) LOOP ON ERROR 
3eSW06*1 LOOP ON TEST IN SWR<5:0> 
seCALL 
he SCOPE 3 sSCOPE=IOT 
SSCOPE : 
CK ssTEST FOR CHANGE IN SOFT-SImR 
BIS @BITO?,BCSR pENMASLE 
18: BIT @BIT14,8SiR SLOOP e:5) tm pe TEST? 
cond sOVER ssYES IF Swi4 
sOCCCOSTART OF = FOR THE XOR TESTEROSSSS 
$xTSTR: ga s3IF RUNNING ON THE “XOR” TESTER CHANGE 
3sTHIS INSTRUCTION TO A “NOP” (NOP<-240) 
Ov @PERRVEC , -( SP) 1 SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV 63, 33SET FOR TIMEOUT 
TST 90177060 a8 OUT ON XOR? 
MOV (SP)+ QCERRVEC ;;RESTORE THE ERROR VECTOR 
BR ¢SVLAD 33GO TO THE NEXT TEST 
S$: cep (SP )+,CSP)> ssCLEAR THE STACK AFTER A TIME OUT 
MOV deo, ssRESTORE THE ERROR VECTOR 
GR 3sLOO0P ON THE PRESENT TEST 
66; @S0O0END FOR THE XOR TESTERGGCOS 
BIT eBITOos, 3sLO0P ON SPEC. TEST? 
Fe 2s 230R IF NO 
MOV aSum , -( SP) 33SET DESIRED TEST NUM. FROM 
BIC O 6 SuRP , (SP) ssSTRIP AWAY UNDESIRED BITS 
(SP )+, STSTNM 330N THE RIGHT TEST? 
BFE sOVER 336R S 
2s: TSsTe8 sERFLG ssHAS AN ERROR OCCURRED? 
BFO 34 330R IF 
SERMAX , SERFLG 33MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI Se 3:0R IF NO 
BIT BIT09, SLR 33LO0P ON ERROR? 
BEG as 330R IF NO 
76; ~ — 33SET LOOP ADORESS TO LAST SCOPE 
4t: CLRB sERFLG 3sZERO THE ERROR FLAG 
CLR sTIMES ssCLEAR THE NUMBER GF ITERATIONS TO MAKE 
Ba 16 ssESCAPE TO THE NEXT TEST 
36; BIT @81IT11,8SiR ss INHIBIT ITERATIONS? 
Bee Le 5308 IF 
TST OPASS ssIF FIRST PASS OF PROGRAM 
BEQ is 8 INMIBIT ITERATIONS 
INC ¢ICnT ss INCREMENT ITERATION COUNT 
CMP ¢TIMES, SICNT 3 3CHECK THE NUMBER OF ITERATIONS MADE 
BGE sOvER 3:36R IF MORE ITERATION REQUIRED 
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SCOPE HANDLER ROUTINE 


5493 


ssREINITIALIZE THE ITERATION — 
ITERATIONS TO DO 


ssCLEAR THE ESCAPE FROM ERROR ADORESS 
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST 
1 DISPLAY TEST NUMBER 

s3FUDGE RETURN ADORESS 

s01S HOB 


s3MAX, NUMBER OF ITERATIONS 
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012737 000001 001104 18: MOV #1, SICNT 
013737 023462 001164 MOV  STIMES 
105237 001102 $SVLAD: INCB TNM 
113737 001102 001204 MOvB ¢TSTNM, STESTN 
011637 001106 MOV (SP), SLPADR 
011637 001110 Ov (SP), SLPERR 
37 001166 CLR sESCAPE 
112737 1 001115 MOvB @1, SERMAX 
013777 001102 155474 %sOVER: MOV STSTNM, SOISPLAY 
013716 001106 MOV SLPADR ,( SP) 
042737 001000 177520 BIC @81709.8CSR 
000002 RTI 
000001 SMXCNT: 1 
.SBTTL TYPE ROUTINE 
s@ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE 
s@THE ROUTINE WILL INSERT A NUMBER OF MULL 
s@NOTE1: 6NULL CONTAINS 
3s @NOTE2: 
soNOTES: 
3% 
s@CALL: 
1@1) USING A TRAP INSTRUCTION 
38 YPE »MESADR 
3e0R 
3¢ TYPE 
3¢ MESADR 
3¢ 
105737 001157 $TYPE: TSTB STPFLG 
1 BPL is 
HALT 
3% BR 3% 
C10046 1%: MOV RO, -(SP) 
017600 000002 MOV @2(SP),RO 
122737 000001 001220 Ceres @APTENV , SENV 
001011 Bet 62% 
132737 000100 001221 6ITB @AP TSPOOL , SENVM 
001 BEQ 626 
010037 023534 MOV RO.61% 
737 026150 JSR ore saTYS 
61%: . WORD 
132737 000040 001221 62%: BITs ear TCSUP, sENVM 
001003 BNt 60% 
112046 2s: MOvVB (RO)+, -CSP) 
001005 BNE 43 
005726 TST (SP )-+ 
012600 60%: MOV (SP )+,RO 
062716 000002 3%; ~ 4 @2,(SP) 
122716 000011 4%; CHPB @HT CSP) 
001430 BEQ $ 
122716 000200 CMPB OCRALF (SP) 
001006 BNE S$ 
005726 TST (SP )- 
104401 TYPE 
001175 6CRLF 
105037 024014 CLRB $CHARCNT 


SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQuUI' 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


ssMESADR IS FIRST ADORESS OF AN ASCIZ STRING 


331S THERE A TERMINAL? 

83 IF ve 

ssHALT HERE IF NO TERMINAL 
aa... 

1 aSAVE RO 

33GET —— 4 ASCIZ STRING 

83 T MODE 

33"0,GO Cecx MFOR APT CONSOLE 

33SPOOL MESSAGE TO APT 

33NO,GO CHECK FOR CONSOLE 

3 sSETUP MESSAGE ADDRESS FOR APT 

s3SPOOL MESSAGE TO APT 


3sYES.SKIP TYPE OuT 

1 3PUSH oe ay TO BE TYPED ONTO STACK 
330R IF IT ISN'T THE TE TOR 

s3IF TERMINATOR POP IT OFF THE STACK 


RET 
3 sBRANCH IF <HT> 
3:;BRANCH IF NOT <CRLF> 


33PO0P <CR><LF> + 


3s TYPE A CR AND L 
ssCLEAR CHARACTER COUNT 


ae EED. 
USED AS THE ee 


SEQ 0133 
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TYPE ROUTINE 


SASS 


Ell 
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BR 2s 33GET NEXT CHARACTER 
023676 5%: JSR PC, $TYPEC 33:GO TYPE THIS CHARACTER 
001156 68: CePB sFILLC,(SP)> 3sIS IT TIME FOR FILLER CHARS.? 
BNE 2s IF NO GO GET NEXT CHAR. 
001154 MOV NULL , -( SP) 33GET @ OF Ree A aes NEEDED 
‘8 
000001 78: OECB 1(SP) 3300ES A NULL NEED TO BE TYPED? 
BLT £ 330R IF “wy ee THE NULL OFF OF STACK 
023676 JSR PC, $TYPEC 33GO0 TYPE A 
024014 CECB T 3300 NOT COUNT” As A COUNT 
BR 7$% 3 sLOOP 
sHORIZONTAL TAB S 
8s: MOvVB @ CSP) — TAB WITH SPACE 
023676 9%: JSR PC, $TYPEC ssTYPE A SPACE 
000007 024014 BITB 07, SCHARCNT ss@RANCH IF NOT AT 
BNE 94 11TA8 STOP 
TST (SP )« s3POP SPACE OFF STACK 
ovvPec BR es 1iGET NEXT CHARACTER 
155242 TSTB asiKs 33;CHAR IN KYBO BUFFER? 3sMJDOOi 
BPL 10% 338R IF NOT 3MJDOO1 
155236 MOV Ot TKB, -(SP) 33GET CHAR 340001 
177600 BIC #177600 ,(SP) + ySTRIP EXTRANEOUS BITS 3MJD001 
000023 CMPB @SXOFF ,CSP) 33WAS CHAR XOFF 3MJD001 
BNE 1026 33;8R IF NOT sMJD001 
101%: 3MJD001 
155216 TSTB = @S TKS ssWAIT FOR CHAR 3MJD001 
BPL 101% 34JD001 
155212 MOVB @sTKB, (SP) 33GET CHAR 34/0001 
177600 BIC #177600 ,(SP) 3sSTRIP IT 340001 
1 CMPB @$X0N, (SP) 33WAS IT a 3MJD001 
BNE 101% 336R IF 34/0001 
102%: 340001 
TST (SP )-+ ssFIX STACK 3MJD001 
10%: 340001 
155174 TST8 atTPS ssWAIT UNTIL PRINTER IS READY 
BPL 340001 
000002 155166 MOVB 2( SP), @sTPB 33LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 CMPB eC 33IS CHARACTER A CARRIAGE RETURN 
BNE is 3 :;BRANCH IF NO 
024014 CLRB ¢CHARCNT 33VYES--CLEAR CHARACTER COUNT 
BA sTYPEX 3sEXIT 
000012 000002 18%: CMrB @LF .2(¢SP) 31S og A LINE FEED? 
BEG sTYPEX 33:sBRANCH IF YES 
INCB (PC )« 3sCOUNT THE CHARACTER 
SCHARCNT: .WORD 0 s sCHARACTER COUNT STORAGE 
sTYPEX: RTS PC 


SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


§ § SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSHESSSSEHESSHESSSSEHSESHSSHEEESS 


USED TO oe J 16-BIT BINARY NUMBER TO A 6-DIGIT 


a HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


seCAL 

36 * MOV 
3¢ TYPOS 
34 BYTE 
3¢ BYTE 


NUM, -( SP) ssNUMBER TO BE TYPED 

3:CALL FOR TYPEOUT 
N s3Ne1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
a s3M=1 OR O 


rrn 


SEQ 0134 
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000012 


024244 
177770 


j 24 TYPON- -- “a HERE TO 
TYPOC 


s*@8TYPOS OR $ 


:eC 
3% 


3¢ 
$TYPOS: 


1%: 
2s: 


43: 
5%: 


7: 


6%: 


SHRERBBRBDEOAGEENIII "EI 3 


Tt += 
nZze 
=F 


BEQ 
INC 


NUM, -(SP) 


NUM, -( SP) 
@( SP), -CSP) 


1(SP), SOF ILL 


ss1*TYPE LEADING ZEROS 
ss0*SUPPRESS LEADING ZEROS 


TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


i 
2 + teas ate HERE FOR TYPEOUT OF A 16 BIT NUMBER 


5 der BE TYPED 


} PICKUP THE MODE 

3sLOAD ZERO FILL SWITCH 
ssNUMBER OF DIGITS TO TYPE 
88 RETURN ADORESS 


33SET THE ZERO FILL SWITCH 
1 ySET FOR SIX(6) DIGITS 
33SET THE ITERATION COUNT 
3 sSAVE 
s3SAVE R4 
s3SAVE RS 
33GET THE NUMBER OF DIGITS TO TYPE 


ssSUBTRACT IT FOR MAX. ALLOWED 
33SAVE IT FOR USE 
33sGET THE ZERO FILL SWITCH 
THE INPUT NUMBER 
ssROTATE MSB INTO “C” 
33G0 DO 
33FORM THIS DIGIT 


3sGET LSB OF THIS DIGIT 
ssTYPE THIS DIGIT? 
BR IF 


SUPPRESS ANYMORE 0'S 
1 MAKE THIS DIGIT ASCII 


ssNUMBER TO BE TYPED 

ssCALL FOR TYPEOUT 

ssMAKE ASCII IF NOT ALREADY 
YPING 


ssRESTORE R3 
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BINARY TO OCTAL (ASCII) AND TYPE 


S495 


016666 
012616 


a a ee ee ee ae ae ee + ee — 
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000002 


000010 


000004 


177777 


SEQ 0136 
MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
MOV CSP)+, (SP) 
RTI 3 sRETURN 
8s: BYTE O ssSTORAGE FOR ASCII DIGIT 
BYTE O 3s TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE O ssOCTAL DIGIT COUNTER 


SOFILL: .BYTE ; ssZERO FILL SWITCH 

$OMODE: .WORD ssNUMBER OF DIGITS TO TYPE 

.SBTTL COMVERT BINARY TO DECIMAL AND TYPE ROUTINE 

§ sPSOHSSOSSSSSSESESEDESESEESESESESEEESESEEEEEESESESESESEEEEEEEEES 
s@THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s@SIGNED DECIMAL (ASCII) NUMBER AND TYPE ON 4 
s@NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s@BEFORE THE a Rid OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


:8 MOV NUM, -( SP) 33PUT THE BINARY NUMBER ON THE STACK 
3¢ TYPOS 33GO TO THE ROUTINE 
$TYPOS: 
MOV RO, -(SP) 3sPUSH RO ON STACK 
MOV R1,-C(SP) 33PUSH R1 ON STACK 
MOV .- 3 sPUSH ON STACK 
MOV R3,-(SP) 33PUSH R3 ON STACK 
MOV RS,-CSP) 33PUSH RS ON ST 
MOV »-(SP) 33SET BLANK SWITCH AND SIGN 
MOV 20( SP) ,.RS 33GET THE INPUT 
BPL 1 $8 IF INPUT I * 
NEG RS ssMAKE THE BINARY NUMBER POS. 
MOVB @'-,10SP) ssMAKE THE ASCII NUMBER NEG. 
1%: CLR 33ZERO THE CONSTANTS INDEX 
MOV @s08LK ,R3 33SETUP THE OUTPUT POINTER 
MOVB @ ,CR3)- 33SET THE FIRST CHARACTER TO A BLANK 
2s: CLR Re s3sCLEAR THE BCD a 
MOV sO TBLC(RO),R1 33GET THE CONSTAN 
3%: SUB R1,R5S 33sFORM THIS BCD DIGIT 
BLT 4s 336R IF DONE 
~ - ssINCREASE THE BCD DIGIT BY 1 
4%: ADO R1,R5 33AD0 BACK THE CONSTANT 
TST R2 + IF BCD ar 
BNE 5% sFALL THROUGH IF 
TsTe (SP) HESTILL a LEADING 0'S? 
BMI 7$ a3 
5%: (SP) 33MSO? 
Bcc 336R 
1(¢SP),-1(R3) 33 YES--SET THE SIGN 
6%: BIS ° ssMAKE THE BCD DIGIT ASCII 
7%: BIS o' ,R2 ssMAKE IT A SPACE IF NOT ALREADY A DIGIT 
R2,(R3)o 33PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)> 1 1JUST INCREMENT ING 
CMP RO, #10 33CHECK THE TABLE INDEX 
BLT 2st 33GO DO THE NEXT DIGIT 
BGT 8s 33GO TO EXIT 
R5,R2 33GET THE L 


BR 31:GO CHANGE TO ASCII 
8s; — (SP )+ ssWAS ay THE FIRST NON-ZERO? 


ot 3:8R IF 
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TO DECIMAL AND TYPE ROUTINE 


177777 


000176 
154436 
154432 
177600 
000007 
001134 
025227 


025234 
060176 


177776 


001140 


154274 


move -1(SP),-2(R3) 45, YES--SET THE SIGN FOR TYPING 

CLRB (R3) 33SET THE TERMINAT 

MOV (SP )+,RS ssPOP STACK INTO RS 

MOV CSP )+,R3 3 STACK INTO R3 

MOV (SP )+,R2 ssPOP STACK INTO R2 

MOV (SP)+,R1 ssPOP STACK INTO R1 

MOV (SP )+,RO ssPOP STACK INTO RO 

TYPE . SOBLK 5 TYPE THE NUMBER 

MOV SP),4(SP) ssADJUST THE STACK 

MOV (SP)+, CSP) 

RTI ssRETURN TO USER 
sOTBL: 10000. 

1000. 

100. 

10. 


sOBLK: .BLKW 4 

-SBTTL TTY INPUT ROUT 

} s SOCSSSSSSSSESESESSESEESSOSEEEESEESESEOSEESESEEESESESEESESESEEEES 

-EWABL LSB 

§ s OSSSOSSSSSSESESESESEESEDESEEEESESEESESEEEEEEEEEESEEEESEESESEESE 
ROUT 

FROM THE TRAP HANDLER, AND WILL 

OR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


$GTSUR : 


19%: 


7%: 


9%; 


20%: 
106: 


118: 
14%: 


a IN TTY FLAG MODE. 


15% 
asTKS 


1 
OS TKB, -(SP) 
ercirt, (SP) 
@7,(SP)> 


15% 
> me 


33I1S THE SOFT-SWR SELECTED? 
a8 IF NO 
33 THERE? 

33IF NO, DON’T WAIT AROUND 
33sSAVE THE CHAR 

ssSTRIP-OFF THE ASCII 

s3IS IT A CONTROL G? 

33NO, RETURN TO USER 

ssARE WE ey IN AUTO-MODE? 


3 

ssECHO THE CONTROL-G (tG) 
ss TYPE CURRENT CONTENTS 

1 SAVE SWREG FOR TYPEOUT 


33GO0 TYPE--OCTAL ASCIICALL DIGITS) 
ssPROMPT FOR NEW SUR 


+A NOT TRY AGAIN 

] 

ssMAKE IT 7-BIT ASCII 
ssIS ITA yoeee.- U? 


33 PRE 
33LET’'S TRY IT AGAIN 
3381S IT A <CR>? 


1 sBRANCH IF NO 
1 tYES, Is z a FIRST CHAR? 


s:ECHO <CR> AND <LF> 


SEQ 0137 





—_———  —— — 


024654 
024662 
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001135 
000100 
023676 
000060 


000067 


000060 
000002 


000002 
177776 
001174 


000001 
154252 


000023 


SEQ 0138 
CMPB SINTAG, 61 3 sRE-ENABLE TTY KBD INTERRUPTS? 
BNE 15% + sBRANCH IF NOT 
MOV #100, 8¢TKS 3 sRE-ENABLE TTY KBD INTERRUPTS 
15%: RTI 3 sRETURN 
16%: JSR PC, $TYPEC 3sECHO CHAR 
CMP (SP), #60 3sCHAR < 07? 
BLT ' + sBRANCH IF YES 
CMP (SP), 067 33CHAR > 7? 
BGT 16% ssBRANCH IF YES 
BIC @60,(SP)-+ ssSTRIP-OFF ASCII 
TST 2(SP) 3381S THIS THE FIRST CHAR 
BEQ 17% 3s sBRANCH IF YES 
ASL (SP) 33NO, SHIFT PRESENT 
ASL (SP) $3 OVER TO MAKE 
ASL (SP) ss ROOM FOR NEW ONE 
178: INC 2( SP) sKEEP COUNT OF CHAR 
BIS -2(SP),CSP) 33SET IN NEW CHAR 
BR 7$ 33GET THE NEXT ONE 
18%: TYPE . $QUES ssTYPE 2?<CR><LF> 
BR 20% ssSIMULATE CONTROL -U 
-OSABL LSB 
3 §OS0000000000000000000000000000600000060000000000006600000000006 
pry INE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
3 : 
3% ROCHR ssINPUT A SINGLE CHARACTER FROM THE TTY 
3% RETURN HERE ssCHARACTER IS ON THE STACK 
36 : WITH PARITY BIT STRIPPED OFF 
3 
$ROCHR: MOV (SP), -CSP) 3sPUSH DOWN THE PC 
MOV 4(SP),2(SP) 3sSAVE THE PS 
1s TSTB asTKS 3sWAIT FOR 
BPL is 33A CHARACTER 
Ot TKB,4(SP) 33sREAD THE TTY 
BIC @tC<177>, 4(SP) ;;GET RID OF JUNK IF ANY 
CMP 4(SP), 023 33IS IT A CONTROL-S? 
BNE 33 3 sBRANCH IF NO 
2s: TST8 asTKS ssWAIT FOR A CHARACTER 
BPL es 33LOOP UNTIL ITS THERE 
MOVB @tTKB,-CSP) 3 3GET TER 
BIC @?C177,(SP) 3sMAKE IY 7-BIT ASCII 
CMP (SP)+,@21 33I1S IT A CONTROL-Q? 
BNE 2s 33IF NOT DISCARD IT 
@R 1s 33YES, RESUME 
3%: CMP 4(SP), @¢X0ON IS IT A RANDOM XON? ;RANOO1 
BEQ 1% 33B8R IF YES 3;RANOO1 
CMP 4(SP), #140 331S IT UPPER CASE 
BLT 4% 33:BRANCH IF YES 
cmp 4(SP),@175 33I1S IT A SPECIAL CHAR? 
BGT as 3:BRANCH IF YES 
BIC #40 ,4(SP) 3sMAKE IT UPPER CASE 
43; RTI 33:GO BACK TO USE 


BP SSS CSESESSCEKEREEESESHH SHEE SSESHECERGHHSESHRAKESTASHEMESHEE EEE HEEOA 


s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


s*CALL: 

31% ROLIN ss INPUT A STRING FROM THE TTY 

:o RETURN HERE ssADORESS OF FIRST CHARACTER WILL a ON THE STACK 
34 1 y TERMINATOR WILL BE A BYTE OF ALL O'S 
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$RDOLIN: MOV R3,-CSP) +sSAVE R3 
025212 18: MOV @sTTYIN,RS 33GET ADORESS 
025222 2s: CMP @STTYINeS.,R3 ;;BUFFER FULL? 
BLOS 4s 336R IF YES 
ROCHR 33GO READ ONE CHARACTER FROM THE TTY 
MOvB (SP)+,CR3) 1 GET CHARACTER 
000177 10%: CMPB #177,CR3) ssIS ITA 
BNE 3% 33SKIP IF NOT 
001174 4$: TYPE » $QUES s3TYPE A ‘?° 
BR 1% 33;CLEAR THE BUFFER AND LOOP 
025210 3%: MOVB (R3),9% 33sECHO THE CHARACTER 
025210 TYPE ° 
000015 CMPB #15, (R3)- 3sCHECK FOR RETURN 
BNE 2s 33LOOP IF NOT RETURN 
177777 CLRB -1¢(R3) 3sCLEAR RETURN (THE 15) 
001176 TYPE , $LF ssTYPE A LINE FEED 
MOV (SP)+,R3 3 sRESTORE R3 
MOV CSP),-CSP ssADJUST THE STACK AND PUT ADORESS OF THE 
000004 000002 MOV 4(SP),2CSP) 33 FIRST ASCII CHARACTER ON IT 
025212 000004 MOV OsTTYIN, 4(SP) 
RTI 3 sRETURN 
9%: -BYTE O s sSTORAGE FOR ASCII CHAR. TO TYPE 
BYTE O 33 TERMINATOR 
$TTYIN: .BLKB 8. 3 sSRESERVE . oe FOR TTY INPUT 
= 015 ‘$sCNTLU: .ASCIZ /tU/<15><12> ssCONTROL “” 
= 015 ‘$sCNTLG: .ASCIZ /tG/<15><12> 3s;CONTROL "G” 
012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
122 040 
040 000 
040 116 $MNEW: .ASCIZ / NEW = / 
127 040 
040 000 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
fF PSSSOSSESSSSSSEESESESESESESESESESEEESESERESEEDEEEEESEEEEEEEEESS 
s*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
3@CHANGE IT TO BINARY. 
3 : 
ae RDOCT 33sREAD AN OCTAL NUMBER 
3% RETURN HERE 33LOW ORDER BITS ARE ON y OF THE STACK 
3% 3sHIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV »,-(SP) ssPROVIDE SPACE FOR THE 
000004 000002 MOV 4(SP),2(SP) 33 INPUT NUMBER 
MOV RO, -(SP) 33sPUSh RO ON STACK 
MOV R1,-CSP) 33sPUSH R1 ON STACK 
MOV »- CSP) 3sPUSH R2 ON STACK 
1%: ROLIN 3sREAD AN ASCIZ LINE 
MOV (SP)+,RO 33GET ADORESS OF 1ST CHARACTER 
e ssCLEAR DATA WORD 
2%: (RO)+,-CSP) ssPICKUP THIS CHARACTER 
BEQ 3% ssIF ZERO GET OUT 
ASL R1 82 
ROL Ro 
ASL Ri 3304 
ROL R2 


Ki1 
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SEQ 0140 
READ AN OCTAL NUMBER FROM THE TTY 

025320 006301 ASL RL 3348 
025322 006102 ROL R2 

042716 177770 BIC #?C7,(SP) s3STRIP THE ASCII JUNK 
025330 062601 ADD (SP)+,R1 bey = IN THIS DIGIT 
025332 000764 BR 2s 3LO00P 
025334 005726 3$: TST (SP )-+ 1 CLEAN TERMINATOR FROM STACK 
025336 010166 000012 MOV R1,12CSP) ssSAVE THE RESULT 
025342 010237 025356 MOV R2, $HIOCT 
025346 012602 MOV (SP)+,R2 33P0P STACK INTO R2 

012601 MOV CSP)+,R1 3sPOP STACK INTO Ri 
025352 012600 MOV CSP)+,RO 33POP STACK INTO RO 
025354 000002 RTI 3 sRETURN 
025356 000000 $HIOC?: .WORD 3sHIGH ORDER BITS GO HERE 

5498 .SBITL READ A DECIMAL NUMBER FROM THE TTY 


ff SSOOSAHESEEEERARSSSLERSSHHLSESKESSKRESSTESESHKSEREASHAAEHRAKEEEEHEKES 


s@THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
MANY TER ANY ILLEGAL 


s@CHANGE IT TO BINARY. IF TOO CHARACTERS OR CHARACTERS 
F READ A “?” FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE T 
3@THE MUST BE RETYPED. THE IS TERMINATED BY THE 
s@USER TYPING A CARRIAGE RETURN. THE RANGE OF THE 
— 32767 TO NEGATIVE 32768. 
3 : 
3¢ ROOEC 3sREAD A DECIMAL NUMBER 
.* RETURN HERE 3 sNUMBER IS ON TOP OF THE STACK 
3 
025360 011646 $RODEC: MOV (SP), -CSP) ssPROVIDE SPACE FOR 
025362 016666 000004 000002 MOV 4(SP),2(¢SP) 33 THE NUMBER 
025370 010046 MOV RO, -(SP) 3sPUSH RO ON ST 
025372 010146 MOV R1,-CSP) ssPUSH R1 ON STACK 
025374 010246 MOV R2,-CSP) 3:3sPUSH R2 ON STACK 
025376 104411 1%: ROLIN 3sREAD AN ASCIZ LINE 
025400 012600 MOV (SP)+,RO 8 ss 1ST CHAR. 
025402 010037 025526 MOV RO.6 3 sSAVE OF BAD INPUT 
CLa -(SP) 3sCLEAR DATA WORD 
025410 CLR 3sSIGN SET POSITIVE 
025412 122710 000055 CMPB @*-,C(RO) 3 A MINUS SIGN WAS TYPED 
025416 001001 EME 2s 338R IF NO MINUS SIGN 
20 112002 MOVB CRO)+,R2 3sSAVE FOR LATER USE 
025422 112001 2s: MOVB CRO)+,R1 ssPICKUP THIS CHARACTER 
025424 001424 BEQ 3% 33GET OuT IF ZERO 
025426 122701 000060 @'0,R1 33MAKE SURE THIS CHARACTER 
025432 003032 BGT 5% 33IS A DIGIT BETWEEN O E€ 9 
025434 122701 000071 @’'9,R1 
025440 002427 BLT 5% 
025442 032716 170000 BIT @*C07777,.(SP) 33D00N‘'T LET NUMBER GET TO BIG 
025446 001024 BNE 5% 338R IF NURBER WOULD OVERFLOW 
025450 006316 ASL (SP) 3342 
025452 011646 MOV (SP), -CSP) :3SAVE FOR LATER 
025454 006316 ASL (SP) 3 
025456 006316 ASL (SP) 308 
025460 062616 ADO (SP )+, (SP) 33410. 
025462 102416 BvS 5¢ ; ;OVERFLOW ISN’ T ALLOWED 
025464 162701 000060 SUB #'0O,R1 33STRIP AWAY THE ASCII JUNK 
025470 060116 ADO R1,¢(SP) + ADD IN THIS DIGIT 
025472 102412 BvS S$ 3; s;OVERFLOW ISN'T ALLOWED 
025474 000752 BR 2s 


+ sLOOP 
025476 005702 3%: TST R2 33:CHECK IF NUMBER IS NEG 
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000012 


001174 


177520 


153344 
153334 


001116 
001114 
153274 


001220 
025700 


. SBELL 
1%: INC sERTTL ssCOUNT THE NUMBER OF ERRORS 


{ 
SEQ 0141 
| 
BEQ 43 33:8R IF NO 
NEG (SP) 33 YES--NEGATE THE NUMBER 
4: MOV CSP)+,12¢SP) ssSAVE THE RE 
MOV (SP )+,R2 33sPO0P STACK INTO R2 
MOV (SP)+,R1 3sPOP STACK INTO R1 
wre CSP )+,RO et ST INTO RO 
5%: TST (SP )+ Ee PARTIAL NUMBER FROM STACK 
CLRB (RO) 33SET A TERMINATOR 
TYPE ss TYPE THE INPUT UP TO BAD CHAR 
68: -WORD O ssPOINTER GOES 
TYPE » $QUES 33"?” “CR” E*LF” 
3s TRY AGAIN 
sENABLE HOB IN ERROR ROUTINE SINCE MOST LIKELY IT IS CURRENTLY DISABLED. 
-SBTTL ERROR HANDLER ROUTINE 
fF SSSSSSESSSESSSSSESSSESSSESEEESESEESSLESEESEEEEEEEEERESEEEESESES 
s*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s@SAVE THE ERROR ITEM NUMBER AND THE ADORESS OF THE ERROR CALL 
s¢AND GO TO ERTYPE ON ERROR 
3*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3*SW15-1 HALT ON 
3@SW131 INHIBIT ERROR TYPEOUTS 
3*SW10°1 BELL ON ERROR 
3*Sw09=1 LOOP ON ERROR 
3 CALL 
Cane ERROR oN ssERROR=-EMT AND N-ERROR ITEM NUMBER 
TST UQUIET 3sTEST FOR USER-QUIET MODE 
BEQ 9s 3 sBRANCH IF FIELD-SERVICE MODE 
CLR RO 33IN CASE RO HAS A #3 IN IT (tC) 
ts JSR PC, ABORT + sTEST FOR ABORT CONDITION 
33TEST FOR CHANGE IN SOFT-SUR 
BIS @8IT09.BCSR sENABLE 
7%: INCB sERFLG 33SET THE ERROR FLAG 
BEQ 7% 33;00N‘T LET THE FLAG GO TO ZERO 
MOV ¢TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #6IT10,8SUR 33BELL ON ERROR? 
BEQ is a8 - SK 

MOV (SP), SERRPC 33GET ADORESS OF ERROR INSTRUCTION 

SUB @2 , SERRPC 

MOVB SSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 

BIT 6IT13,aSuR 3sSKIP TYPEOUT IF SET 

BNE 33SKIP TYPEOQUTS 

JSR PC ,ERTYPE 33GO TO USER ERROR ROUTINE 
_ TYPE . $CRLF 

CMPB @APTENV , SENV 3s sRUNNING IN APT MODE 

BNE 2s 33NO,SKIP APT ERROR REPORT 

MOVB sITEMB 21% 33SET ITEM NUMBER AS ERROR NUMBER 

JSR PC, SATY4 3 sREPORT FATAL ERROR TO APT 
21%: BYTE f¢] 
.BYTE O 
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SEQ 0142 
ERROR HANDLER ROUTINE 
025702 600777 228: BR 22% 33:APT ERROR LOOP i 
025704 005777 153230 2s: TST ase :sHALT ON ERROR 
025710 100002 BPL 3% 33SKIP IF CONTINUE 
025712 000000 HALT 23 ON 4 
025714 104407 CKSER phy FOR CHANGE IN SOFT-SUR 
025716 032777 001000 153214 3%: BIT @BITO9, SSUR 3LOOP * ERROR SWITCH SET? 
025724 001402 BEQ ah 1 s8R IF nO 
025726 013716 001110 MOV $LPERR , (SP) s3FUDGE RETURN FOR LOOPING 
025732 005737 001166 4s: TST sESCAPE 3 sCHECK FOR AN ESCAPE ADDRESS 
025736 001402 BEQ 5% 3:6 IF NONE 
oeares 013716 001166 - MOV SESCAPE , (SP) ;sFUDGE RETURN ADORESS FOR ESCAPE 
025744 022737 023142 000042 ChP @SENDAD , 8642 3sACT-11 AUTO-ACCEPT? 
025752 001001 BNE 6$ 3: ;BRANCH IF NO 
025754 000000 HALT 33YE 
025756 6%: 
025756 000002 RTI 3 RETURN 
.SBTTL ABORT ROUTINE FOR LCE /ORION UFO “ODE 
025760 005737 002572 ABORT : TST UFDOFLG sTEST FOR USER FRIENDLY MODE 
025764 001454 REQ NOABR I iF NOT UFD THEN CONTINUE NORMAL OPERATION 
025766 020027 000032 Cer RO, 32 3IS IT A tZ ? 
025772 001445 BE ABORTZ sJUST GO BACK TO CHAIN IF IT IS (NO ERROR) 
025774 020027 000003 Cop RO, @3 3IS IS A tC ? 
026000 001404 Bra ABORTC 3s8R TO LOAD tc ON XXDP- STACK (NO ERROR) 
026002 005737 002574 TST UQUIET ;TEST FOR USER-QUIET MODE 
026006 001443 BE NOABRT sIF FIELD-SERVICE MODE. CONTINUE NORMAL OPERATION 
; BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 
026010 000422 BR ABORTE 3SET ORSERR THEN LEAVE 
026012 013737 002566 000030 ABORTC: MOV SAV30 30 sRESTORE EMT LOCATION (30) 
026020 013737 002570 000032 MOV SAV32.32 sRESTORE EMT PRIORITY LOCATION (32) 
026026 104043 EMT 2&3 3sGET XXDP STACK LOC. INTO RO FROM MONITOR 
026030 005720 1s: TST CRO)- sFIND END OF STACK 
026032 001376 BNE 1% 
026034 112760 000057 177777 move @'7,-10(RO) sLOAD SLASH OVER ZERO 
026042 112720 000136 mMOve | @'t,(RO)+ sLOAD UP 
026046 112720 000103 MOvB @'C,CRO)+ sLOAD C 
026052 105010 CLRB CRO) sMAKE NEW END TO SIACK 
026054 000412 aR ABORTZ sNOW LEAVE 
026056 013737 002566 000030 ABORTE: MOV SAV30,30 sRESTORE EMT LOCATION (30) 
013737 002570 000032 MOV SAV32.32 sRESTORE EMT PRIORITY LOCATION (32) 
026072 104042 EMT he sGET OCA LOCATION INTO RO FROM MONITOR 
026074 012760 177777 000042 MOV @-1,42(RO) sSET A -1 INTO LOCATION ORSERR IN MONITOR 
026102 013700 000042 ABORTZ: MOV ° 3 TOR RETURN ADORESS IN RO 
026106 005037 000042 CLR we42 sCLEAR MONITOR RETURN FLAG 
026112 000137 023142 JP SENDAD | RETURN TO MONITOR-DO NOT PUSH STACK HERE 
026116 000207 NOABRT: RTS PC sIF NOTUFD RETURN TO MAINLINE 
5503 3@ THIS ROUTINE LOADS TEST NUMBER AND ERROR NUMBER AND THEN CALLS SERRTYP 
5504 026120 113737 001102 001716 ERTYPE: MOVB STSTNM, TEST 33LOAD TEST NUMBER 
5505 026126 113737 001114 001714 MOvB sITErB , ERRNUM 33;AND ERROR NUMBER 
5506 026134 004737 026410 JSR PC, SERRTYP ;;GO REPORT ERRORS 
5507 026140 000207 RTS PC 3; ;RETURN 
55068 -SBTTL APT COMMUNICATIONS ROUTINE 


$s SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSHSSHSHSESESSEEEHSEEEEEE 


026142 112737 000001 026406 $ATY1: MOVB 1, 6FFLG 13TO0 REPORT FATAL ERROR 

026150 112737 000001 026404 $ATY3: MOVB 1, $MFLG 370 TYPE A MESSAGE 

026156 000403 BR sATYC 
026160 112737 000001 026406 $sATY4: MOVB 1, SFFLG +3TO ONLY REPORT FATAL ERROR 
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001175 


026316 
000004 


001202 
000004 


SATYC: 
TSTB 
BEQ 
CMPB 
BNE 
BITB 
BEQ 
MOV 
ADD 
is TST 
mcV 
2s: TST8B 
BNE 
SUB 
ASR 
MOV 
MOV 
BR 
3%: MOV 
ADO 
MOV 
JSR 
4%: . WORD 
5%: 
10%: TSTB 
BEQ 
TST 
BEQ 
11%: TST 
BNE 
MOV 
ADO 
INC 
12%: CLRB 
CLRB 
CLRB 
RTS 
$MFLG: .BYTE 
$LFLG: .BYTE 
tFFLG: .BYTE 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL = 100 
APTCSUP= 


#2,4( 
$MSGT 


:3PUSH RO ON STACK 
:3;PUSH R1 ON STACK 
+3SHOULD TYPE A MESSAGE? 


RETURN ADOR. 
33SEE IF DONE W/ LAST XMISSION? 


33IF NOT: WAIT 


3sPUT ADOR IN MAILBOX 
:sF IND END OF MESSAGE 


33SUB START OF 


33sGET MESSAGE LNGTH IN WORDS 


33;PUT LENGTH 


IN MAILBOX 
;;TELL APT TO TAKE MSG. 


33PUT MSG ADOR 


IN JSR LINKAGE 
RETURN ADDRESS 


; ;BUPP 
3 sPUSH 177776 ON STACK 
TYPE MACRO 


3;CALL 


33;SHOULD REPORT FATAL ERROR? 


33IF NOT: 


3 «RUNNING Ee APT? 
| }FINISHED om MESSAGE ? 


VIF NOT: 
33GET ERROR @ 


RETURN ADOR. 


; ;BUMP 
33 TELL apt TO TAKE ERROR 
;;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 
;sCLEAR MESSAGE FLAG 
;3PO0P STACK INTO R1 
33:POP STACK INTO RO 


33;FATAL FLAG 


040 
-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
j SSSCSSSSSSSSSSSSESSSEEEEDESSESESESEEESEEEESESESEEEEESEEDEEEEEESS 


s*THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 


» $CRLF 


OBTAINS, FROM 
THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


THE “ERROR TABLE” ($ERRTB), 


ss"CARRIAGE RETURN” € “LINE FEED” 


SEQ 0143 
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010046 


005000 
153700 
001004 
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001114 


001116 


MOV RO, -( SP) ssSAVE RO 
CLR RO ssPICKUP THE ITEM INDEX 


BIS8 GeOsITEMB,RO 

BME is saIF ITEM NUMBER IS ZERO, wwST 
ssTYPE THE PC OF THE ERROR 

MOV SERRPC , -( SP) + ySAVE SERRPC FOR TYPEOUT 


ssERROR ADORESS 
TYPOC 13G0 TYPE. OCTAL ASCIICALL DIGITS) 
6R 63 31GET 
1%: DEC RO ssADJUST THE INDEX SO THAT IT WILL 
ASL RO $8 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADO @sERRTB,RO 3sFORM TABLE POINTER 
MOV (RO)+.28 ssPICKUP “ERROR MESSAGE” POINTER 
BEG 3% ssSKIP TYPEOUT IF NO POINTER 
TYPE a8 “ERROR 1s 
2s: -WORD O 33 "ERROR MESSAGE” POINTER GOES HERE 
TYPE . §$CRLF 3 "CARRIAGE RETURN” € “LINE FEED” 
38: MOV (RO)+ 48 ssPICKUP “DATA HEADER” POINTER 
BEQ bY) 33SKIP TYPEOUT IF O 
TYPE 88 THE “DATA HEADER 
4s -WORD O 3s“DATA HEADER” POINTER GOES HERE 
TYPE . SCRLF ss "CARRIAGE RETURN” € “LINE FEED” 
S$: MOV (RO) ,RO ssPICKUP “DATA Ll POINTER 
BNE 7% 33G0 ny DATA 
68: MOV (SP )+,RO TyRESTORE RO 
TYPE . §CRLF 33 "CARRIAGE RETURN” € “LINE FEED” 
- RTS PC 3 sRETURN 
MOV @CRO)+, -( SP) ssSAVE @(RO)+ FOR TYPEOUT 
TYPOC 33GO0 TYPE--OCTAL ASCII(ALL DIGITS) 
TST (RO) 33I1S THERE ANOTHER NUMBER? 
BE Be 330R IF 
TYPE 8s TYPE TWOC2) SPACES 
ER 78 3 sLOOP 
8s: -ASCIZ / / 33TWOC2) SPACES 
EVEN 


.SBTTL TRAP DECODER 

§ § PPSSSGKESSHSSSASHSASKOSHESE SHSCSHKTCESSSESSHOESCASHOSHHSKHCOSHHSEHASHKOD 
seTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
3AM USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADORESS 


39GO TO THAT : 
8 : RO, -( SP) ssSAVE RO 
MOV 2( SP). RO 33GET TRAP ADORESS 
TST -(RO) ssBACKUP BY 2 
OVB (RO),RO 1 GET RIGHT BYTE OF TRAP 
ASL ssPOSITION FOR INDEXING 
¢TRPAD( RO), RO 1 INDEX TO TABLE 
aTS RO 33GO TO ROUTINE 
ssTHIS IS USE TO HANDLE THE “GETPRI” MACRO 
¢TRAP2: MOV (SP), -(SP) ssMOVE THE PC DOWN 
MOV 4(SP),2(SP) ssMOVE THE PSW DOWN 
ATI ssRESTORE THE PSwW 


-SBTTL TRAP TABLE 
seTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


KTJ11-8 DIAGNOSTIC 
TRAP TABLE 


$511 


C12 
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s¢BY THE “TRAP” INSTRUCTION. 
ROUTINE 


i 
: 
STRPAD: .WORD 


TRAP +1( 104401) TTY TYPEOUT 
TRAP 


TYPE OCTAL NUMBER (NO LEADING 
GET y A SETTING 


TRAP +11( 104411) 
TRAP + 12( 104412) 


— ee READ A DECIMAL NUMBER FROM TTY 


§ § SSPSSSSSSECSESEESSSESSSSSHSHS EHS SSESOVSSES SHTSSSHHASHHSSHSHSALISHHAHHEOE 


OCILLUP ,BOPURVEC ;;SET FAST UP 


33PUSH RS ON STACK 
33sPUSH @SWR ON STACK 


ssSAVE SP 
6PURUP ,BOPURVEC ;;SET UP VECTOR 


P 


‘ 7 HANG 
8 F SSOSSSSSSSSSSSSSSHSSSSSSSSSSSHSSSSSSSSHSSSSSSSSESSEHSSSHEEEESEEEEHEE 
ROUTINE 


OC ILLUP , BOPURVEC us FOR FAST DOWN 


33sGET SP 
ssWAIT LOOP FOR THE TTY 
ssWAIT FOR THE INC 


330F WORD 
33P0P STACK INTO @SUR 


sREPORT THE POWER FAILURE 
ssPOWER FAIL MESSAGE POINTER 


13s THE POWER UP SEQUENCE WAS STARTED 
33 BEFORE THE POWER DOWN WAS COMPLETE 
1sPUT THE SP HERE 


’ OGIN 
026770 000024 ‘SPWRON: MOV 
000340 000026 MOV 0340, SOPURVEC +2 3sPRIO:7 
Ov RO, -(SP) 
MOV Ri, -(SP) 
MOV .-(SP) 
MOV (SP) 
MOV -(SP) 
MOV RS, -(SP) 
1 MOV ,-CSP) 
026774 MOV SP , SSAVRE 
026702 000024 MOV e 
HALT 
BR « 
8 up 
026 000024 sPURUP: MOV 
026774 MOV $SAVR6 , SP 
026774 CLR $SAVRE 
026774 1%: oe SSAVRE 
152206 MOV (SP )+, @SuR 
MOV (SP )+ RS 
MOV CSP )+,R4 
MOV (SP )«¢,R3 
MOV (SP)+,R2 
MOV (SP )+,R1 
MOV CSP) ,RO 
026630 000024 OV 
000340 000026 i 0340 , BOPURVEC+2 ;;PRIO: 
6PURAG : Pa 6POWER 
6ILLUP: HALT 
BR 7-2 
¢SAVRE: O 
012 120 $POWER: .ASCIZ <15><12>”POWER” 
127 105 
000 
EVEN 


SEQ 0145 


ROUT INE 
TYPE OCTAL MUPBER (WITH LEADING ZEROS) 


ROS ) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


KTJ11-8 DIAGNOSTIC 
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POWER DOWN AND UP ROUTINES 


o2 
3519 027114 


027163 


SRESRERSE 


SESEERRESRERERSES 


j 
s ERROR MESSAGES 


EM2: -ASCIZ /MAP REGISTER COULD NOT BE CIEARED/ 
EMS: -ASCIZ /MAP REGISTER COULD NOT HOLD PATTERN/ 


' 
; 
EM1: .ASCIZ /TIMEQUT ON ACCESSING A MAP REGISTER/ 
Ems; -ASCIZ /MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY/ 


KTJ11-8 DIAGNOSTIC 


Elo. 
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POWER DOWN AND UP ROUTINES 


S521 027236 


5524 027446 


4 oe EMS: -ASCIZ /THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGISTERS, 
101 123 
116 117 
104 111 
106 i 
105 116 
105 040 
117 125 
104 040 
105 124 
105 105 
040 110 
040 101 
104 040 
117 040 
101 120 
105 
111 123 
105 i22 
122 122 EM6 ASCIZ /ERROR 
: . IN BITS 3-6,9-14 IN THE DCSR/ 
122 040 _ 
116 040 
111 124 
040 063 
066 054 
055 061 
040 111 
040 124 
105 040 
103 123 
000 
“ = EM7: -ASCIZ /DCSR DID NOT RESPOND PROPORLY ON RESET/ 
104 040 
117 124 
122 105 
120 117 
104 040 
122 117 
117 122 
131 040 
116 040 
105 123 
124 


000 
111 4 EM10: .ASCIZ /TIMEOUT HAS OCCURED ON ACCESS TO THE DCSR/ 


110 
123 040 
103 103 
122 105 
040 117 
040 101 
103 105 
123 040 
117 040 


SEQ 0147 


KTJ11-8 DIAGNOSTIC 


Fie 





a 
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SEQ 0148 


POWER DOWN AND UP ROUTINES 


5527 027644 


124 110 105 


040 104 103 
123 122 
113 115 103 EM11:  .ASCIZ /KMCR BITS 0-5,8 DID NOT GET SET CORRECTLY/ 
122 040 102 
111 124 123 
060 0SS 
065 054 070 
040 104 111 
104 040 116 
117 124 040 
107 105 124 
123 105 
040 103 
117 122 122 
105 103 124 
114 131 000 
124 111 115 EMi2:  .ASCIZ /TIMEOQUT HAS OCCURED ON ACCESS TO THE KMCR/ 
105 117 125 
124 040 110 
101 123 040 
117 103 103 
122 105 
104 040 117 
116 040 101 
103 103 105 
123 123 040 
124 117 040 
124 110 105 
040 113 115 
103 122 000 
1 122 122 EM13:  .ASCIZ /ERROR IN DATA PATH PERFORMING DATA OUT/ 
117 122 040 
111 116 040 
104 101 124 
101 040 120 
101 124 110 
040 120 105 
122 1 117 
122 115 111 
116 107 040 
104 101 124 
101 040 117 
124 000 
105 122 122 EM14: .ASCIZ /ERROR IN DATA OUT CYCLE/ 
117 122 040 
111 116 040 
1 101 124 
101 040 117 
124 040 
103 131 103 
114 105 
105 122 2 €E€M15: .ASCIZ /ERROR IN DATA IN CYCLE/ 
117 122 
111 116 
104 101 124 
101 111 


KTJ11-8 DIAGNOSTIC 
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POWER DOWN AND UP ROUTINES 


S$ 30 027772 


5531 0 


5532 030107 


te) 
5533 poeee 


SEQ 0149 

103 
= 114 
tt 7 EM16: .ASCIZ /DOR IS NOT 0, WHEN DCRS<2-1> SELECTS UNIBUS LINES/ 
116 117 
040 
040 127 
105 116 
104 103 
123 074 
055 061 

123 
114 105 
124 123 
125 116 
102 125 
040 114 
116 105 
000 
103 123. EM17: .ASCIZ /OCSR<07> DOES NOT BECOME 1/ 
074 060 
076 040 
117 105 
040 116 
124 040 
105 103 
115 165 
061 000 
78 on EM20: .ASCIZ /INDIRECT ADDRESSING OF MAPPING REGISTER PAIRS/ 
124 040 
104 104 
105 123 
111 116 
040 117 
040 115 
120 
116 107 
122 105 
1i' 123 
105 122 
120 101 
122 123 
105 107 EM21: .ASCIZ /REGISTER PAIR 40 PERFORMS RELOCATION/ 
123 124 

040 
101 111 
040 
040 120 
122 106 
122 1 
114 117 
101 124 
117 116 


——— ee oe i rr a ee 6  - ees + ee ee ee ee ee eS, 


Hie 
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POWER DOWN AND UP ROUTINES 


000 
5534 030232 116 130 115 EM22: .ASCIZ /NXM CONDITION COULD NOT BE CREATED THRU ALU/ 


he) 
S535 030306 101 114 125 EM23: .ASCIZ /ALU ERROR/ 
030311 040 105 122 
030314 122 117 122 
030317 000 
5536 030320 103 120 125 EM24: .ASCIZ /CPU CACHE ERROR/ 
030323 040 103 101 
030326 103 110 105 
030331 105 


$537 pone | 4 115 — EM2S: .ASCIZ /KMCR<4-0> DON'T DISABLE MEMORY RESPONSE/ 


5538 coosee a4 as 103 EM26:  .ASCIZ /KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 





SEQ 0150 


KTJ11-8 DIAGNOSTIC 


—— ee + +e  -  e eS 


Iie 
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POWER DOWN AND UP ROUTINES 


5539 0304735 
030476 


5540 030530 


5542 030635 


S543 pone | 


122 122 EM27: .ASCIZ /ERROR IN CACHE TAG REGISTEFS/ 
122 040 
116 040 
101 103 
105 
101 107 
122 105 
111 123 
pa 122 
122 122 EM30: .ASCIZ /ERROR IN THE DMA CACHE DATA RAMS/ 
122 040 
116 040 
110 105 
104 115 
040 103 
103 110 
040 104 
124 101 
122 101 
123 000 
= EM31: .ASCIZ /ERROR IN THE M9312 BOOT ROM SECTION/ 
116 040 
110 105 
115 071 
061 
102 117 
124 
117 115 
123 105 
124 111 
116 000 


122 EM32: $.ASCIZ /ERROR IN ARBITRATION LOGIC USING UBE/ 


122 EM3S3:  .ASCIZ /ERROR TRYING TO EXECUTE DMA CYCLES THRU UBE/ 


——+> ee 


ee ee eee eC 





a 


J12 | 
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POWER DOWN AND UP ROUTINES 


000 
5544 030756 105 122 4 EM34: .ASCIZ /ERROR IN THE UNIBUS MEMORY TEST/ 


5545 031016 125 116 = EMSS: .ASCIZ /UNEXPECTED TIMEOUT HAS OCCURED/ 


031035 117 124 
1 110 101 
031043 123 117 


S546 031055 125 _. . EM36: .ASCIZ /UNIBUS TIMEOUT DID NOT WORK CORRECTLY/ 


031102 040 127 
031105 117 122 113 
031110 040 103 117 
031113 122 122 105 
031116 103 124 114 


5547 oeeaee 104 103 123. EM37: .ASCIZ /OCSR<3> DID NOT DISABLE UBA ROM RESPONSE/ 


— 031172 105 000 

5549 031174 124 105 123. OH1; -ASCII /TEST ERROR ERROR ADDRESS/<12><15> 
031177 124 011 105 
031202 122 122 117 








i74a “N 


KTJ11-8 DIAGNOSTIC 


te) 
$551 
ie) 


SSS2 


0 
S553 
i) 


S554 


0 
5555 
te) 


122 
122 


MACRO M1200 05-OCT-84 09:24 PAGE 64 23 
POWER DOWN AND UP ROUTINES 


011 105 
122 117 
011 101 
104 122 
123 123 
015 
040 043 
040 
103 011 
043 
105 123 
011 105 
117 
011 105 
122 117 
011 107 
117 104 
102 101 
012 015 
040 
040 
103 011 
040 043 
104 101 
101 011 
101 
011 101 
104 122 
123 123 
105 123 
011 105 
117 
011 105 
122 117 
011 107 
117 104 
102 101 
012 015 
040 043 
040 
103 011 
040 043 
101 104 
105 
123 011 
104 104 
105 123 
000 
105 123 
011 105 
117 
011 105 
122 117 
011 110 
011 114 


OHe: 


-ASCIZ / @ PC 0/ 


-ASCII /TEST ERROR ERROR 


-ASCIZ / @ PC @ 


-ASCII /TEST ERROR ERROR 


-ASCIZ / @ PC 3 


-ASCII /TEST ERROR ERROR 


K1e 


GOOD BAD/<12><15> 


DATA DATA ADORESS/ 


GOOD BAD/<12><15> 


ADDRESS ADORESS/ 


HI LOW/<12><15> 





SEQ 0153 


KTJ11-8 DIAGNOSTIC 


5556 


te) 
$557 


$558 


5562 


5563 


031713 


104 


BRERRRBERE 


ces 
Kae 
Kon 


REBERSESESREREEESES 
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POWER DOWN AND UP ROUTINES 


OH13: 


OH16: 


-ASCIZ / @ 


Lie 


PC 


-ASCII /TEST ERROR 


-ASCIZ / @ 


-ASCII /TEST ERROR 


-ASCIZ / @ 


PC 


-ASCII /TEST ERROR 


-ASCIZ / @ 


PC 


-ASCII /TEST ERROR 


AAA &wW 


@ MAP 
ERROR GOOD 
0 DATA 
ERROR ODOR 
o/ 
ERROR/<12><15> 
o/ 


BAD/<12><15> 


DATA/ 


PATTERN/<12><15> 


ERROR KMCR PAIR/<12><15> 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


031716 122 
031721 i15 
040 


031727 111 
031732 015 
5564 0317535 040 
031736 011 


031752 111 

031755 1 
5565 031757 124 

031762 124 


032015 105 
032020 012 
5566 032022 040 
032025 O11 
032030 120 


° 
5567 032070 124 


° 
& 
2 
R 


032112 104 
032115 105 
032120 011 
032123 104 


011 
103 
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% 
LN) 


043 -ASCIZ / @ 


123 OH23: =.ASCII /TEST 


043 -ASCIZ / @ 


123 DH27: -ASCII /TEST 


043 -ASCIZ / @ 
040 


SEQ 0155 


FAILED/ 
GOOD BAD ADORE SS/<12><15> 
DATA DATA <22-16> <13-0>/ 


ADORESS ADORESS/<12><15> 


<22-16> <15-0>/ 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 
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076 


001714 


001714 
001122 


001714 
000000 
001714 
000000 
001714 
001714 
000000 
001714 


001714 
172354 


001714 
000000 
001714 


.EVEN 
OT1: 


OT2: 


OT3: 
OT4: 


OT16: 
OT20: 
OT21: 
OT23: 


OT27: 
OT30: 


S55 555558 83 


TEST, SERRPC ,ERRNUM, $BDADR ,O 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT , $BDADR , 0 


TEST, SERRPC ,ERRNUM, $GDADR , $BDADR , 0 

TEST, SERRPC , ERRNUM, $GDDAT , $BDDAT ,O 

TEST, SERRPC ,ERRNUM,O 

TEST, SERRPC ,ERRNUM,KMCR , $BDADR ,O 

TEST, $BDADR , ERRNUM,O 

TEST, SERRPC , ERRNUM, $GDDAT , $BDDAT ,. KIPARG , $BDADR ,O 


TEST, SERRPC , ERRNUM, MAPHO1 , MAPLO1,0 
TEST, $ERRPC , ERRNUM , MAPLOO,0O 


KTJ11-8 DIAGNOSTIC 


TEESE ELECT 
eEERRRT TS 


MACRO M1200 05-OCT-84 09:24 PAGE 64-27 


002154 Ow1 
BE1CC § 002152 O15 
BEICLR 002160 OH16 
BEICRi 002156 
BEICR2 002162 
108 002150 O23 
BELINT 001724 OH27 
002166 OHS 
BE1Sv 015476 Ona 
BE1 VEC 164 
002174 OISPLA 
BE2CC § 002172 OISPRE 
BE2ZCLR ° 
BE2ZCRi 002176 oT1 
OT16 
002170 oT2 
BE2ZINT 001726 OT20 
OT21 
BE2SvV 015516 oT25 
902204 0T27 
BITO = 000001 OTS 
BITOO = 000001 OT30 
BITO1 = 000002 OT4 
BITO2 = 000004 EMNTSAV 
BITOS = 000010 EMTVECe 
BITOS = 000020 Eni 
BITOS = 000040 En10 
BITO6 = 000100 Emil 
BITO7 = 000200 EMi2 
RITOB = 000400 EM13 
BITOS = 001000 En14 
BIT1 = 000002 emis 
BIT10 = 002000 EM16 
@IT11 =» 004000 €M17 
BIT12 = 010000 Ene 
BIT13 = 020000 EM2O 
BIT14 = 040000 EM21 
BIT1S = 100000 En22 
BIT2 =» 000004 En2s 
BITS =» 000010 EMo4 
BIT4 = 900020 EM2S 
BITS =» 000040 
BIT6 = 000100 EM27 
BIT7 = EMS 
BITé = EMSO 
BIT9 = 001000 EMS1 
BPTVEC= 000014 
* 177746 EMSS 
CKSUR = 104407 
* 000015 EMSS 
° EM36 
CT@LE EM37 
OCSR = 177730 Ena 
EMS 
OOISP = 177570 EM6 
DDOUT 002210 EM7 
DOR == 177732 ERRNUM 


031565 


001714 


SEQ 0157 
ERROR = 104000 MAPHI6= 170272 | 
ERRVEC* 000004 MAPH17= 170276 
ERTYPE 026120 MAPH2 = 170212 | 
GTSWR = 104406 MAPH20= 170302 
* 000011 MAPH21= 170306 
IOTVEC* MAPH22= 170312 
50 MAPHOS= 170316 
KDPARO= 172360 MAPH24= 170322 
KOPARI= 172362 MAPH2S= 170326 
KOPAR2= 172364 MAPHO6= 170332 
KDPARS* 172 MAPH27= 170336 
AAd= 172370 MAPHS = 170216 
KOPARS= 172372 MAPHSO* 170342 
ARG= 172374 MAPHS1= 170346 
KDPART= 172376 MAPHS2= 170352 
KDPDRO= MAPHSS= 170356 
KOPOR1= 172322 MAPHS4= 170362 
KDPOR2= 172324 MAPHSS= 170366 
KDPORS= 172326 MAPHS6* 170372 
KOPOR4* 172330 MAPHS7= 170376 
KOPORS= 172332 MAPHA = 170222 
KDPORG= 172334 MAPHS = 170226 
KOPOR7= 172336 MAPHG = 170232 
KIPARO= 172340 MAPH7 = 170236 
KIPAR1= 172342 MAPLO = 170200 
KIPAR2= 172344 MAPLOO= 170200 
KIPARS= 172346 MAPLO1= 170204 
KIPAR4= 172350 02= 170210 
KIPARS= 172352 MAPLOS= 170214 
KIPARG= 172354 MAPLOS= 1 
KIPART= 172356 MAPLOS= 170224 
172300 MAPLOG= 170230 
KIPOR1= 172302 MAPLO7= 170234 
KIPOR2= 172304 MAPL1 = 170204 
KIPORS= 172306 MAPL10= 170240 
KIPOR4= 172310 MAPLI1= 170244 
KIPORS= 172312 MAPL12= 170250 
KIPOR6= 172314 MAPL13= 170254 
KIPOR7= 172316 MAPL14* 170260 
KMCR = 177734 MAPLIS= 17 
LF = 000012 MAPL16= 170270 
MAPHO = 170202 MAPL17= 170274 
MAPHOO= 170202 MAPL2 = 170210 
MAPHOL= 170206 MAPL20= 170300 
MAPHO2= 170212 MAPL21= 170304 
MAPHOS= 170216 22= 170310 
MAPHOS= 170222 MAPL23= 170314 
MAPHOS= 170226 MAPL24= 170320 
MAPHOG= 170232 MAPL25= 170324 
MAPHO7= 170236 MAPL26= 170330 
MAPHI = 170206 MAPL27= 170334 
MAPHLO= 170242 MAPLS = 170214 
MAPHI1= 170246 MAPL30= 170340 
MAPHI2= 170252 MAPL31= 170344 
MAPHIS= 170256 32= 170350 
MAPHI4* 170262 MAPL33= 170354 
MAPHIS= 170266 MAPL 34* 170360 


C13 
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SEQ 0158 
SYMBOL TABLE 
MAPLSS= 170364 SUREG 000176 TST3O 012120 $BASE 001254 $GDADR 001120 
36= 170370 SwO. * 000001 TST31 012334 $BDADR 001122 $GDDAT 001124 
MAPLS7= 170374 SWOO = 00006! TST32 012756 *B00AT 001 $GET42 023132 
MAPL4 = 170220 SwOl » 000002 TST33 013210 $8ELL 001170 6GTSMR 024542 
MAPLS = 170224 Swo2 TST34 013634 sCOW1 $ = 000001 
MAPL6 = 170230 $WOS = 000010 TST3S 014034 sCOu2 001262 $HIBTS 
MAPLT? = 170234 Sw04 TST36 014222 SCHARC 024014 SHIOCT 025356 
MAPPR 002 SWO0S = 000040 TST37 014324 sCKSWR 024472 $ICNT 001104 
MCSR 001732 $W06 = 000100 TST4 003762 $CHTAG 001100 $1LLUP 026770 
MENSIZ 002 S07 = TST4O0 O1 ‘CHS = $INTAG 001135 
PRO © 177572 Su08 = TST41 015144 sCM4 SITEMB 001114 
POR = 177574 SW09 = 001000 TST4z 01 SCNTLG 025227 sLF 001176 
WR2 © 177576 Sui TST43 015536 SCNTLU sLFLG 
fORS = 172516 SW10 » 002000 TST44 015752 $CPUOP 00 $LPADR 001106 
reNVEC = SWll ° TST4S =O SCRLF 001175 001110 
NOABRT 026116 = 010000 TST46 © 016124 s08LK sMADR1 
007664 SW13 = 020000 TST47 016224 s00W0 001264 001236 
MROM 86-01 3576 SW14 = 040000 TS $00W1 SHAR 
OBADR 002140 SW1S =» 100000 TSTSO 016440 #0010 001310 SHADRE 001246 
* 177522 > TSTS1 016 ¢00W11 001312 $MAIL 001200 
PIRQ = 177772 © 000010 TSTS2 016674 001314 SMAMS1 001230 
PIRQVE= Su4 = 000020 TSTSS 017002 ¢00W13 001316 001234 
PHIS 001720 5 Ce TSTS4 ©: 017432 $00W14 001320 SAMS 3 
POLY « 1 SW6 =: 000100 TSTSS 017576 s00W1S 001 sMAMS4 001244 
PRO = 000000 Su? s TSTS6 017746 $00W2 001270 $ 000234 
PRI = suas TSTS7 020374 $00W3 001272 sHFLG 
PR2 = 000100 Su9 = 001000 TST6 $004 001274 $ 5 
PRS = 000140 TBITVE> 000014 TST60 020746 $00W5 001276 $MSGAD 001214 
Pras TALIM = 012716 TST61 021030 $00W6 001300 SMSGLG 001216 
PRS os TOLL «(0126 TST62 021134 $00W7 001302 #HSGTY 001200 
PRE = 000300 TEST 001716 TST6S 021476 $00W8 001304 34 
PR7 = 000340 TIMOUT TST64 © 022152 001306 SMTYP1 001231 
PSs =: 177776 ° 000060 TST6S 022336 $0EVCT 001210 SMTYP2 001235 
PSU = 177776 TOPTBL 010542 TST66 SHTYPS 001241 
PTANI6 001774 TOUT 001730 TS167 022740 023152 SMTYP4 001245 
002010 TPVEC = TST7 sOT@L $MXCNT 023462 
PURVEC= TRAPVE= 000034 TYPDS = 104405 $ENDAD 023142 $MULL 001154 
ROCHR = 104410 TRIVEC= 14 TYPE = 104401 sENDCT 02 tNUTST= 1 
RODEC = 104413 TST1 003274 TYPOC = 104402 sEMULL 023156 $OCNT 024242 
ROLIN = 104411 TST10 TYPON = 104404 sENV 00 $OMODE 024244 
ROOCT = 104412 TST1l TYPOS = 104403 sENVM = 001221 $OVER 023440 
RESTAR 003270 TST12 004722 UBECT 001722 sE0P 022766 $PASS 001206 
RESVEC= 000010 TST13 7 $EOPCT 023014 $PASTM 
TST14 005450 UBETST 013210 SERFLG 001103 $POWER 026776 
R7 #8000007 TSTIS 005646 UFOFLG 002572 SERMAX 001115 $PURON 
SAV3O 002566 TST16 006052 UFDSET* 000001 $ERROR 025536 $PURMG 026764 
SAV32 002570 TST17 UMSIZ 002424 ¢ 001116 $PURUP 026702 
SCOPE « TST2 003420 UQUIET 002574 SERRTB 001 $QUES 001174 
SIMLGO= 170014 TST20 006514 VALTBL 010526 SERRTY 10 $ROCHR 
SRO. = 177572 TST21 007114 VMKOR 002576 ¢ERTTL 001112 $RODEC 025360 
SR1 =:177574 TST22 007574 wR 001734 $ESCAP 001166 $ROLIN 025104 
= 177576 TST23 007704 $APTHO 32 $ETABL 001220 $RDOCT 
3 = 172516 TST24 010076 $ATYC 026166 $ETEND 001324 $ROSZ = 000010 
STACK = 001100 010556 $ATY1 026142 $FATAL 001202 $RTNAD 023154 
START 1S126 0 $ATYS 026150 sFFLG $SAVR6 026774 
STKLMT= 177774 1ST27 011436 $ATY4 026160 #FILLC 001156 $SCOPE 023162 
001140 TSTS 003640 $AUTOB 001134 $FILLS 001155 $SETUP= 000137 


et es oe et we eee ote eee Meno) 


KTJ11-6 DIAGNOSTIC MACRO M1200 05-OCT-84 09:24 PAGE 64-29 
SEQ 0159 

SYMBOL TABLE 

$STUP = 177777 $TKS 001144 STRAP2 026566 STYPEC 023676 $VECT1 001250 

$SVLAD 023404 $THPO 001160 $TRP = 000014 $TYPEX 024016 $VECT2 001252 

$SVPC = 000232 $TMP1 001162 $TRPAD 026600 $TYPOC 024044 $XOFF = 000023 

$SuR = 167400 $TN = 060070 $TSTM 000236 $TYPON 024060 $X0N = 000021 

$SWREG 001222 sTPB =: 001152 $TSTNM 001102 $TYPOS 024020 $XTSTR 023202 

$SURFK= 000300 $TPFLG 001157 $TTYIN 025212 $UNIT 001212 $$GET4= 000000 

$TESTN 001204 $TPS 001150 STYPDS 024246 $UNITM 000242 $OFILL 024243 

$TIMES 001164 STRAP 026544 $TYPE 023464 $USWR 001224 .$X = 000232 


| 000000 001 
| ERRORS DETECTED: 0 


| VIRTUAL MEMORY USED: 56592 WORDS ( 222 PAGES) 
| DYNAMIC MEMORY: i ( 75 PAGES) 


_ ELAPSED TIME: 00:02: 
| OKTABO.BIC,COKTABO/CR/WL : TOC/ -SP=ORION.MLB/ML , COKTABO 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 1 


SEQ 0160 

SYMBOL CROSS REFERENCE CREF  vO02 
SYMBOL VALUE REFERENCES 

ABASE = 9-381 9-381 
ABORT 025760 64-5502 64-5502 
ABORTC 026012 64-5502 64-5502 
ABORTE 026056 64-5502 64-5502 
ABORTZ 026102 64-5502 64-5502 064-5502 
ACDW1 = 9-381 9-381 
ACDM2 = 000000 9-381 9-361 
ACPUOP = 000000 9-381 9-381 
ADOMO 0. =-_—«©00000 9-381 9-381 
ADOW1 = 000000 9-381 9-381 
ADOW10 = 000000 9-381 9-381 
ADOW11 = 000000 9-381 9-381 
| ADOW12 = 000000 9-381 9-361 
 apOw13 = 000000 9-381 9-381 
ADOW14 = 000000 9-381 9-381 
apow1S = 000000 9-381 9-381 
ADUM2 = 000000 9-381 9-361 
ADOMS = 000000 9-381 9-381 
aDOws «= =_—« 000000 9-381 9-381 
ADOMS = 000000 9-381 9-381 
ADOMG = =: 000000 9-381 9-381 
ADOT ~=—s_- =_—« ©0000 9-381 9-381 
ADOWB = =_—« ©0000 9-381 9-381 
ADOWS «= ="_—:« CO000C 9-381 9-361 
ADEVCT = 000000 9-381 9-381 
_ AOEVE == 000000 9-381 9-381 
a = 000000 9-381 9-381 
RENVH «= =_- 000000 9-381 9-361 
AFATM = 000000 9-361 9-381 
* MWORL = 000000 9-381 9-381 
MYWOR2 = 000000 9-381 9-361 
AAORS = 000000 9-381 9-381 
APADRE = 000000 9-361 9-361 
APWS1 «= 000000 9-361 9-361 
 MWS2 = 000000 9-381 9-381 
| MAWNNSS = 000000 9-381 9-361 
APWES4 == 000000 9-381 9-361 
AMSGAD = 000000 9-381 9-381 
MISGLG = 000000 9-381 9-381 
AMSGTY = 000000 9-361 9-381 
AMTYP1 = 000000 9-361 9-361 
AMTYP2 = 000000 9-381 9-381 
AMTYPS = 000000 9-361 9-381 
| AATYP4 = 000000 9-361 9-361 
APASS = 000000 9-381 9-361 
APRIOR = 000000 9-361 

APTCSU = 000040 64-5493 064-5508 

TENV = 000001 10-819 28-2175 37-3075 45-3845 64-5493 64-5502 64-5508 64-5508 
APTSIZ = 000200 10-816 064-5508 
APTSPO = 006100 64-5493 64-5508 064-5508 
ASMREG = 000000 9-381 9-381 
ATESTN = 000000 9-381 9-381 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 


SYMBOL CROSS REFERENCE 


SYMBOL 


BEICLR 
BE1CR1 


| BELCR2 


_ BE108 


s SSUISERRESS 


BELINT 
BE1PSu 


BE1SV 


002160 
002156 


41-3461 
46-3976 


44-3797 
44-3778 


44-3789 


44-3780 


044-3793 


10-682 


16-1369 
49-4044 


56-4694 
61-5189 


46-3909 


55-4614 
61-5192 


41-3482 
42-3611 
44-3776 


044-3801 
43-3701 


41-3506 
56-4701 


44-3800 


044-3802 


19-1417 


19-1415 
49-4067 





044 - 3806 


44-3779 


20-1451 
49-4070 


61-5227 
49-4049 


57-4806 
61-5228 


41-3493 
42-3626 
3805 


44-3780 
20-1465 


57-4786 
21-1539 


57-4789 
22-1652 


64-5447 
24-1796 


SEQ 0161 


COKTABO 


SYMBOL CROSS REFERENCE 


SYMBOL 
BITC2 


BITOS 
BITO4 


BITOS 


| BITOS 


BITO7 


| BITOS 


CREATED BY MACRO ON 5-OCT-84 AT 09:26 


VALUE 


001000 


52-4304 


064-5510 


21-1539 


33-2700 
26-1949 


21-1533 
22-1673 
24-1799 
27-2111 


39-3313 


ii6 2 


22-1652 


37-3140 
27-2107 


21-1535 
23-1724 


61-5199 


33-2693 


50-4123 
34-4545 


53-4424 
60 - 5062 


23-1717 
30-2374 


35 2669 


51-4216 
54-4554 


53-4457 
60-5078 


23-1749 
31-2474 


SEQ 0162 


LLL LL LLL ttt 


SYMBOL VALUE 
CRLF $= 000200 
CTBLE 002022 
DCSR = 177730 
_ DOIN 002222 
DOISP = 177570 
DDOUT 002210 
DOR = 177732 
OH1 031174 
OH13 031565 
DH16 
DH2 031243 
DH 031677 
OH73 031757 
027 032070 
Dis 031335 
Dre 031425 
OHS 031503 
DISPLA 001142 
DISPRE 000174 
= 177570 
OT1 032106 
DT16 032246 
DT2 032200 
DT20 032256 
0T21 032272 
OT23 032302 
OT27 032322 
DT3 032216 
OT30 032336 
OT4 0322 
EMTSAV 
EMTVEC = 000030 
Emi 027006 
—M10 027446 
EM11 7520 
—m12 027572 
EM13 027644 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 


SYMBOL CROSS REFERENCE 


10-621 
% 


10-657 


10-621 


10-460 
10-816 


10-430 
10-616 


64-5493 
hy 


10-536 


10-473 
64-5492 


64-5570 
10-512 
064-5571 


10-455 


64-5493 
15-1197 


10-523 
64-5502 


10-518 


10-462 


064-5557 


10-543 


10-468 


10-549 


10-475 


#15-1213 
amb ieee 


10-555 


10-S25 


15-1215 


31-2484 
35-2851 


20-1463 
49-4062 


10-560 


10-561 


964-5573 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 5 
SEQ 0164 

SYMBOL CROSS REFERENCE CREF vo2 

SYMBOL VALUE REFERENCES 

eM14 027713 10-459 064-5528 

EM15 027743 10-466 064-5529 

EM16 027772 10-472 064-5530 

EM17 10-479 064-5531 

EM2 027052 10-392 064-5518 

EM20 030107 10-485 064-5532 

EN21 030165 10-491 064-5533 

EM22 030232 10-497 064-55 

EM23 030306 10-503 064-5535 

EM24 030320 10-510 064-5536 

EM25 030340 10-516 064-5537 

EN26 030410 10-522 -55 

EN27 030473 10-529 064-5539 

EMS 027114 10-399 64-5519 

EN3O 030530 10-535 064-5540 

EM31 030571 10-541 064-5541 

EM32 030635 10-547 064-5 

EM33 030702 10-553 064-5543 

EM34 030756 10-559 064-5544 

EMSS 031016 10-565 064-5545 

EM36 031055 10-571 064-5546 

EM37 031123 10-577 064-5547 

Ena 027160 10-406 064-5520 

EMS 027236 10-413 064-5521 

Ee, 027334 10-420 4@64- 

M7 027377 10-427 064-5523 

ERRNUM 001714 #10-563 064-5 64-5570 64-5571 64-5572 64-5573 64-5574 64-5575 64-5576 
64-5577 64-5578 64-5579 

ERROR = 104000 06-265 10-701 11-902 12-970 12-961 12-934 12-1005 13-1060 13-1072 
14-1126 15-1203 15-1217 15-1221 15-1226 16-1280 16-1286 17-1324 18-1375 
16-1361 18-1365 19-1427 20-1464 21-1587 21-1591 22-1668 23-1743 24-1617 
25-1869 26-1973 26-1962 27-2074 27- 27-2120 27-2130 += - 29-2226 «= «- 29-2234 
30-2323 30-2330 «30-2345. (30-2352: 30-2361 0-30-2368 §=_ «31-2498 §=s «31-2504 = 31-2515 
31-2521 31-2532 31-2538 31-2549 31-2556 32-2597 32-2603 33-2658 33-2664 
33-2662 33-2689 33-2696 33-2702 34-2755 34-2761 35-2857 35-2671 36-3001 
36-3004 37-3095 37-3120 37-3126 37-3143 386-3235 386-3239  40- 41-3487 
41-3499 41-3514 41-3529 42-3612 42- 42-3646 42-3663 43-3716 44-3787 
44-3791 45-3867 45-3674 46-3914 47-3951 48-3984 48-3987 49-4066 49-4083 
50-4155 51-4235 52-4312 53-4440 53-4473 54-4565 55-4626 55-4630 56-4712 
56-4717 56-4751 57-4814 57-4819 58-4895 59-4967 60-5054 60-5070 60-5085 
60-5102 60-5108 61-5201 61-5220 61-5223 61-5236 61-5242 61-5262 61-5268 
62-5314 62-5321 -$420 63-5425 64-5467 

ERRVEC = 000004 06-265 10-752 10-753 10-754 10-768 10-816 10-816 10-816 37-3125 
37-3126 037-3141 637-3148 64-5492 064-5492 264-5492 064-5492 

ERTYPE 026120 -5 -5 

= seeces 8-371 8-371 10-821 - , 64-5510 64-5510 64-5510 64-5510 

64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 
64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 

GTSWMR = =_-:104406 10-821 064-551 

HT = 000011 06-265 64-5493 64-5493 

IOTVEC = 000020 06-265 #10-816 10-816 

002450 #10-802 40-3397 41-3475 42-3600 = «42-3621 «42-3638 «= «42-3655 «43-3699 44-3762 


—_—e_ — ee + Ce ee Ee eS 


COKTABO CREATED BY MACRO ON 5S-OCT-84 AT 09:26 


SYMBOL CROSS REFERENCE 


SYMBOL VALUE 
KDPARO = 172360 
KDPAR1 = 172362 
KDPAR2 = 172364 
| KDPARS = 172366 
| KDPAR4 = 172370 
KDPARS = 172372 
KDPAR6 = 172374 
KDPAR7 = 172376 
KDPDRO = 172320 
KDPDR1 = 172322 
KDPDR2 = 172324 
KDPDRS = 172326 
KDPDR4 = 172330 
KDPDRS = 172332 
KDPDR6 = 172334 
KDPDR7 = 172336 
KIPARO = 172340 
KIPARL = 172342 
KIPAR2 = 172344 
KIPARS = 172346 
KIPAR4 = 172350 
KIPARS = 172352 
KIPARG = 172354 
KIPART = 172356 
KIPDRO = 172300 
KIPDR1 = 172302 
KIPDR2 = 172304 
KIPDRS = 172306 
KIPDR4 = 172310 
| KIpORS = 172312 
KIPDRO = 172314 
| KIPORT = 172316 
KMCR = =_-177734 


REFERENCES 


45-3857 
534-4532 
61-5246 
#6 - 266 
06-256 


3333333 
RRRRRER 


$3 
ae 


$3333 
ae 


PRRRRERRRE 


t 
~~ 
& 


$58 
gen 
ge 


ERERRRRRRE 


3 
034-2745 


46-3905 
55-4604 
61-5270 


#10-758 
#23-1732 


47-3943 
56 - 4688 
62-5292 


#10-760 
24-1803 
#26 - 1986 

38-3244 


aB4- 2747 


PAGE 6 
CREF vO02 
46-3973 49-4031 
57-4806 58-4878 
63-5383 64-5446 
10-762 10-832 
*25-1877 25-1893 
#27-2064 %27-2066 
#53-4399 254-4531 
16-1268 16-1275 
21-1566 21-1569 
25-1856 26-1941 
27-2097 27-2096 
29-2220 29-2221 
30-2310 30-2317 
30-2354 30-2356 
#31-2499 31-2500 
31-2534 31-2543 
32-25 -2596 
33- 33-2653 
33-2677 33-2679 
33-2695 33-2697 
34-2748 +#34-2751 


ist A ~~? 


—— —— ae Ce ee eS SS 


SEQ 0165 
50-4122 51-4204 52-4283 53-4400 
59-4937 60-5038 60-5110 61-5184 
#21-1556 21-1583 21-1596  +%22-1661 
#25-1896 +25-1900 25-1901  #26-1960 
#27-2078 #27-2114 27-2134 *27- oS 
#57-4802 57-4826 +57-4833 64-5577 
16-1274 16-1276 16-1278  +#16-1279 
#21-1602 22-1646 23-1726 23-1730 
27-2057 27-2062 27- 7- 
#27-2115 %27-2139 27-2140 27-2145 
29-2223 29-2224 29-2227 29-2228 
30-2318 +%30-2324 30-2 230-2338 
030-2362 30-2 #30-2373 31-2476 
#31-2509 31-2511 +%31-2516 31-2517 
31-2545 «31-2550 31-2551 +*32-2587 
#32-2598 32-2599 *#32- #33-2639 
33-2654 33-2657 +*33-26'9 - 2660 
33-2681 +*33-2683 33- 33-2686 


—- 


eee. + ee ee + - ee tie SE 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PASE 7 
SEQ 0166 

SYMBOL CROSS REFERENCE CREF vd02 

SYMBOL VALUE REFERENCES 
34-2760 234-2762 35-2616 35-2638 +*35-28639  +35-28640 35-2853 35-2869 +*36-2972 
%- 37-3134 38- 38-3207 -32. 51-4199 53-4396 56-4670 56-4671 
56-4679 56-4729 56-4732 56-4753 57-4794 457-4796 457-4835 57-4836 57-4842 
63-5384 63-5385 263-5594 63-5416 63-5422 264-5452 +64-5453 64-5465 64-5575 

LF = 000012 6-265 64-5493 64-5493 

MAPHO = 170202 6-339 

mMAPHOO = 170202 06-274 86-339 23-1734 224-1806 26-1962 426-1969 %26-1990 427-2110  +427-2138 
30-2309 9631-2478 33-2642 34-2739 36-2970 51-4215 52-4294 254-4544 +*55-4616 
057-4799 57-4830 61-5207 61-5221 63-5391 

MAPHOL = 1 06-276 6-341 35-2849 *35-2850 35-2866 35-2867 63-5403 +64-5455 64-5578 

MAPHO2 = 170212 #6-278 6-343 

MAPHOS = 170216 06-280 8-345 

MAPHO4 = 170222 #6 -262 6-347 

MAPHOS = 170226 06-264 8-349 

MAPHOG = 170232 06 - 286 8-351 

MAPHO7T = 170236 06-268 8-353 

MAPHI = = = 170206 06-341 

MAPHIO = 170242 #6 -290 

MAPH11 = 170246 6-292 

MAPHI2 = 170252 06-294 

MAPHIS = 170256 #6 -296 

MAPHI4 = 170262 06-296 

MAPHIS = 170266 #6 -300 

MAPHIG6 = 170272 06-302 

MAPH17 = 170276 06 - 304 

MAPH2 = 170212 06-343 

MAPHZO = 170302 6 - 306 

MAPH21 = 170306 06-308 

MAPH22 = 170312 #6-310 

MAPH2S = 170316 #6-312 

MAPH24 = 170322 06-314 

MAPHES = 170326 #6-316 

MAPHO6 = 1703352 06-318 

MAPH27 = 170336 #6 -320 

MAPHS = 170216 06-345 

MAPHSO = 170342 6-322 

MAPHS1 = 170346 06-324 

MAPHS2 = 170352 6-326 

MAPHSS = 170356 06-328 

MAPHS4 = 170362 6-330 

MAPHSS = 170366 6-332 

MAPHS6 = 170372 #6 - 334 #56 -4743 

MAPHS7 = 170376 #6 -336 #22-1665 62-5324 +63-5389 

MAPH4 == 170222 06-347 

MAPHS == 170226 06-349 

MAPHG = 170232 #6-351 

MAPHT = 170236 06-353 

MAPLO = 170200 06-338 

MAPLOO = 170200 6-273 6-338 11-882 12-956 12-964 13-1044 13-1045 13-1053 13-1054 
14-1112 14-1119 21-1544 21-1555 23-1733 24-1805 25-1869 26-1961 26-1988 
26-1992 27-2109 27-2136 %30-2308 631-2477 433-2641 *34-2738 +%36-2987  +%36-2997 
#51-4214 +#52-42935 53-4403 054-4543 655-4615 57-4798 +57-4828 57-4831 61-5206 


—$—$—$$ ee + ee Ce Se 


COKTABO CREATED BY MACRO ON 5S-OCT-84 AT 09:26 PAGE 8 
SEQ 0167 

SYMBOL CROSS REFERENCE CREF vO02 ’ 

SYMBOL VALUE REFERENCES 
61-5208 61-5216 62-5296 62-5306 463-5390 64-5579 

MAPLOL = 06-275 8-340 35-2648 35-2865 63-5402 64-5454 64-5578 

MAPLO2 = 170210 06-277 6-342 

MAPLOS = 170214 06-279 6-344 

MAPLO4 == 170220 6-261 3-346 

MAPLOS = 170224 06-263 8-348 

MAPLO6 = 170230 06-265 8-350 

MAPLO7 = 170234 6-287 8-352 

MAPL1 = 170204 06-340 

MAPLIO = 170240 06-289 56-4685 

MAPLI1 = 170244 06-291 

MAPLI2 = 170250 6-293 

MAPLIS = 170254 06-295 

MAPL14 = 170260 06-297 

MAPLIS = 170264 06-299 

MAPL16 = 170270 06-301 

MAPLI7 = 170274 6-303 

MAPL2 = 170210 06-342 

MAPL20 = 170300 06-305 

MAPL21 = 170304 06-307 

MAPL22 = 170310 6-309 

MAPL23 = 170314 #6-311 

MAPL24 = 170320 06-313 

MAPL2S5 = 170324 #6-315 

MAPL26 = 170330 06-317 

MAPL27 = 170334 06-319 

MAPLS = 170214 06-344 

MAPL3O = 170340 #6-321 

MAPL31 = 170344 6-323 

MAPL32 = 170350 6-325 

MAPL33 = 170354 #6-327 

MAPL34 = 170360 06-329 

MAPL3S = 170364 6-331 

MAPL36 = 170370 06-333 56-4742 

MAPL37 = 170374 6-335 *22-1664 56-4673 56-4738  +63-5388 

MAPL4 = = 170220 06 - 346 

MAPLS = 170224 06-348 

MAPL6 = 170230 96-350 

MAPL7T = 170234 06-3 

MAPPR #10-719 10-626 21-1552 22-1653 23-1718 24-1797 25-1863 26-1948 27-2055 
35-2619 38-3228 57-4765 

MCSR 001732 #10-590 60-5043 60-5052 61-5188 61-5189 61-5199 61-5205 

MEMSIZ 332 #10-752 10-8629 

MARO = 177572 6-357 #10-626 10-830 #21-1553 21-1603 22-1654 422-1672 423-1719 23-1744 
#24-1796 424-1810 25-1865 625-1903 26-1950 26-2004 27-2056 27-2147 +*35-2620 
35-2674 36-3229 2386-3246 57-4786 57-4789 

Ri = 177574 06-356 

PPR = 177576 06-359 

MRS * 172516 - 360 10-827 10-631 #21-1554 21-1604 22-1655 422-1673 23-1735 23-1745 
#24-1799 #24-1611 25-1864 26-1949 627-2107 27-2111 *27-2146 29-2216 429-2218 
29-2235 630-2307 630-2372 631-2475 32-2589 233-2640 *33-2704 234-2736 234-2763 
#35-2621 ¢35-2641 36-2969 36-3224 39-3315 249-4036 450-4123 451-4216 51-4230 


COKTABO CREATED BY MACRO ON S-OCT-€4 AT 09:26 


SYMBOL CROSS REFERENCE 


SYMBOL 


SIMLGO 
SRO 
SR1 


VALUE 


o 
~ 
| 
~ 
| 
~ 
~ 


177776 


= 170014 
* 177572 
= 177574 


053-4417 
057-4767 


36-2974 
043-3724 


40-3407 


e42 - 3624 
044-3761 
16-1371 


#10-8616 
064-5511 
064-5510 


#10-616 
#10-615 
S02 


053-4426 
057-4793 


53-4450 


040-3410 
042 - 3641 
047-3953 
49-4036 


045 - 3862 
64-5511 


64-5502 
14-1107 


50-4120 
59-4935 


iia “> 


rc 


53-4459 
*61-S5255 


19-1412 
27-2051 
35-2613 


— —- ———-— ~~ —---—__ —— -——_ .-—__, 


054-4545 
263-5392 


20-1448 
27-2106 
35-2622 


041-3494 
042-3658 
046 -3961 
50-4129 


45-3871 


054-4554 
#63-5421 


41-3509 
42-3660 
*#61-5257 

S2-4293 


045-3877 


55-4617 
64-5451 


22-1642 
29-2213 
35-2830 


41-3524 
43-3710 


64-5511 


eeeiamennpenaen maninasineitinaes 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 10 
SEQ 0169 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
SR2 = 177576 6 - 266 
SR3 * 172516 6 - 266 #11-877 11-8868 #11-892 
STACK = 001100 06-265 10-816 
START 002500 6-374 6-377 10-615 
STKLMT = 177774 6-265 
001140 09-361 10-816 10-816 10-816 #10-816 #10-616 10-821 64-5492 64-5492 
64-5492 64-5492 64-5492 64-5496 64-5496 64-5502 64-5502 64-5502 64-5502 
64-5511 64-5511 
SWREG 000176 06-371 10-8616 10-621 64-5496 64 -S496 
swo = 000001 06-265 
SwO0O = 000001 06-265 8-265 
| SWO1 = 000002 06-265 8-265 
Swo2 = 000004 06-265 6-265 
Swos = 000010 06-265 8-265 
SWwOe = 000020 06-265 8-265 
SWOoS = 000040 06-265 8-265 
SwO6 = 000100 6-265 8-265 
SwO7 = 000200 6-265 8-265 
Swos = 000400 06-265 8-265 
Swog = 001000 06-265 8-265 
SwW1 = 000002 06-265 
Sw10 = 002000 6-265 
SW11 = 004000 6-265 
SW12 = 010000 06-265 
SW13 = 020000 6-265 
SwW14 = 040000 6-265 
SwiS = 100000 06-265 
SW2 = 000004 6-265 
SwW3 = 000010 06-265 
Sh = 000020 06-265 
SW5 = 000040 6-265 
SW6 = 000100 6-265 
SW7 = 000200 6-265 
SWB = 000400 06-265 
Sw9 = 001000 6-265 
TBITVE = 000014 6-265 
TBLMH 012716 35-2643 35-2888 
TeLee 012656 35-2642 35-2661 
TEST 001716 #10-5684 #10-624 #64 -5504 64-5570 64-5571 64-5572 64-5573 64-5574 64-5575 
64-5576 64-5577 64-5578 64-5579 
TIMOUT 002234 5 a ® 10-822 15-1192 16-1259 17-1333 21-1551 22-1674 27-2080 27-2144 
TKVEC = 6-265 
TOP TBL 010542 30-2 @30-2391 
TOUT 001730 #10-589 #21-1578 21-1581 
TPVEC = 6-265 
= 000034 06-265 #10-816 #10-836 
TRTIVEC = 000014 06-265 
TST1 003274 11-866 
TST10 004466 17-1314 16-1364 
TST11 004624 16-1367 19-1410 
TsT12 004722 19-1413 19-1425 20-1447 





~ 
w 
oe 
we 
he 
~ oO 


CYSVZVRVe VEN 


2334 
- 2386 


051-4197 


053-4394 
054-4529 
#55 -4605 


16-1250 
056 -4876 
059-4935 


064-5444 


16-1261 
64-5462 


029-2211 


036 - 2947 


045 - 3837 
45 - 3646 


049-4026 


17-1308 
#64 -5510 


25-1850 


45-3848 


45-3852 


45-3854 


45-3856 046-3903 


SEQ 0170 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 12 
SEQ 0171 
SYMBOL CROSS REFERENCE CREF vO02 
SYMBOL VALUE REFERENCES 
TYPE * 104401 10-621 26-2179 26-2180 37-3080 37-3064 64 -5482 64 -5482 64 -5482 64-5493 
64 -S434 64-5495 64-54 64 -5496 64 -5496 64 -5496 64 -5496 64-5496 64-5496 
64 - 5496 64-5496 64 - 5498 64-5496 64- 64-5502 64-5509 64-5509 64-5509 
64-5509 64-5509 64-5509 64-5509 064-5510 64-5511 
TYPOC = 104402 64-5496 64-5509 64-5509 664-5510 
TYPON = 104404 064-5510 
TYPOS = 104405 37-3068: 064-5510 
UBECT 001722 10-586 039-3355 39-3361 39-3370 44-3760 
022740 39-3372 064-5473 
UBETST 013210 26-2181 037-3051 
UFOFLG 72 010-8615 #10-615 64-5502 
UFDSET = 000001 06-361 10-815 64-5502 64-5502 
uMsIZ 002424 @10-776 36-3214 
UQuUIET 002574 010-615 #10-615 10-817 64-5462 64 - 5502 64-5502 
va_ TOL 010526 0-2 030-2380 
76 10-615 10-8615 10-615 #10-815 
we TBuUF 001734 @10-591 49-4037 49-4078 51-4214 51-4231 58-4879 59-4943 59-4952 59-4963 
SAP THO 000232 6-380 68 - 380 
SASTAT = eseess 64-5506 64-5508 
saTYC 026166 64-5506 964-5506 
saTY1 026142 064 -5506 
saTys 026150 64-5493 064-5506 
SaTy4 026160 64- 064 -5 
sAUTOB 001134 09-381 010-621 64 -5496 64 -5496 64 - 5496 
SAASE 001254 09-361 
$BDADR 001122 09-381 #10-700 11-900 012-969 #12-960 012-993 12-1004 «13-1059 213-1071 


15-1225 °16-1276 °16-1265 21-1563 21-1565 24-1816 25-1862 25-1863 25-1884 
25-1886 225-1686 226-1964 26-1968 26-1971 26-1972 26-1978 26-1960 226-1961 
26-1991 ¢26-1992  °26-19935 26-1994 627-2097 053-4439 53-4472 254-4564 64-5570 


$BODAT 001126 09-381 12-967 12-977 012-991 #12-1001 14-1127 15-1201 15-1220 16-1277. 
#16-1380 ¢186-13564 219-1426 20-1 #21-1 024-1815 25-1887 26-1970 26-1960 
27-2096 229-2223 29-2231 30-2318 30-2319 230-2325 30-2 30-2340 30-2541 
030-2347 0-2 030-2356 30-2357 230-2365 30-2364 231-2494 31-2495 31-2500 
31-2501 31-2511 31-25 31-2517 31-2518  ¢31-2526 31-2529 31-2534 31-2535 
¢31-2545 : 31-2551 31-2553 32-2596 32-2599 32- 33-2657 33-2665 


2600 
33-2681 ©33-2666  °33-2695 635-2701 034-2754 234-2760 249-4064 053-4437 253-4470 


001170 09-361 64-5 64-5 64-5 

$CDw1 001260 09-361 

$COW2 001262 09-361 

$CHARC 024014 064-5493 064-5495 64-5493 264-5493 064-5495 

$CKSWR 024472 -5496 64-5510 64-5510 

SCMTAG 001100 09-361 10-616 10-616 10-816 10-616 10-816 10-8616 10-816 

$CM3 * 000000 09-361 9-361 

sc . 09-361 9-361 9-361 9-361 9-361 9-361 09-381 

SCNTLG 025227 64-5496 964-5496 

sCNTLU 64-5496 064-5496 

$ 001226 09-361 

sCRLF 001175 9-361 26-2160 37-3064 64 -5482 64-5493 64-5493 64-5493 64 -5496 64 -5496 
64 -5509 64-5509 


ee 


N41 A; 


COK TABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 15 
SEQ 0172 
SYMBOL CROSS REFERENCE CREF vOo2 
SYMBOL VALUE REFERENCES 
s0BLK 64-5295 64-5495 064-5495 
$00WwO0 001264 9-361 
$00W1 001266 09-361 
$00W10 001310 09-361 
$00W11 001312 09-361 
s00W12 001314 09-381 
$00W15 001316 09.361 
$00w14 001320 09-381 
s00W15 001322 09-361 
3 DOM 001270 09-361 
001272 09-361 
$00we 001274 09-361 
s00u5 001276 09-361 
$0006 001300 09-381 
$00W7 001302 09-361 
$00ws, 001304 09-361 
s00w9 001306 09-381 
sOEVCT 001210 09-361 
SOE Vn 09-361 
$00AGN 023152 64 - S482 64-3482 064-5462 
sOTeL 64-3495 -3495 
SENDAD 023142 8-379 10-621 064 -5482 64-5502 64-5502 
SsENDCT 023022 10-616 064-5477 064-5462 
sEMULL 023156 064 - 
stn ow 10-619 10-621 26-2175 37-3075 45-3845 64-5493 64-5502 64-5508 
001221 09-361 10-8616 64-5493 64-5495 64-5506 
sEoP 022766 351-4203 63-5387 64-3475 064 - 
sEOPCT 023014 10-616 064-3476 064-5462 64-5462 
sERFLG 001103 yon = 64-5492 64-5492 64-3492 264-5492 64-5492 64-5492 64-5502 64-5502 
SERMAX 001115 09-361 10-816 64-3492 2964-5492 64-5492 64-5492 
SERROR 025536 10-8616 064 -S502 
sERRPC 001116 09-361 64-5502 64-5502 64-5502 64-5502 64-5502 64-5509 64-5570 64-5571 
64-5572 64-5573 64-5574 64-5575 64-5577 64-5578 64-5579 
SERRTB 001324 10-361 ef. 
SERRTY 026410 - 064-5509 
sERTTL 001112 09-361 64-3462 264-5502 64-5502 64-5502 
sESCAP 001166 09-361 10-616 064 -5492 64-5502 64 -S5SC2 64-5502 64 -5502 
SE TABL 001220 09-361 
sEeTOwO 001324 6-380 09-381 
SFATAL 001202 09-361 64-5508 
sFFLG 64-5506 264-5506 64-5506 264-5508 064-5506 
sFILLC 001156 09-361 64-5493 64-5493 64-5493 
$F ILLS 001155 09-361 64-5493 64-5495 
$GDADR 001120 09-361 13-1058 13-1070 64-3572 
$GDOAT 001124 99-381 10-657 12-966 12-979 12-992 #12-1003 14-1126 15-1202 15-1207 


15-1206 616-1276 16-1376 16-1378 16-1382 419-1416 19-1418 19-1422 20-1455 
20-1460 21-1579 21-1588 22-1662 22-1666 924-1807 225-1865  %*26-1965 26-1971 
26-1974 26-1976 26-2001 27-2091 27-2092 27-2093 27-2095 229-2224 29-2225 
29-2232 029-2233 30-2310 30-2311 *30-2322 29350-2329 230-2344 230-2351 230-2360 
030-2367 631-2479 631-2497 031-2503 631-2514 631-2520 631-253! 031-2537 31-2548 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 PAGE 14 
SYMBOL CROSS REFERENCE CREF vo02 
SYMBOL VALUE REFERENCES 
31-2555 «32-2592 232-2593 32-2602 +*33-2651 
@33-2680 «33-2686 33-2687 33-2690 33-2691 
034-2759 2049-4065 053-4436 2053-4471 254-4563 
$GET42 023132 064 -5482 
$GTSUR 024542 064 -5496 64-5510 64-5510 
$HD = 000001 6-262 8-262 -262 
sHIBTS 000232 of - 380 
$HIOCT 025356 e64-5497 064-5497 
sICnT 001104 09-361 064-54 64-54 064 -5492 64 -5492 
sILLuP 026770 64-5511 64-5511 964-5511 
SINTAG 001135 09-361 64-34 -5496 64 - 5496 
sIYEMs 001114 09-361 064 -5502 64-5502 64-5502 64-5502 
s_F 001176 yf 64-5493 64-5493 64 -5496 64 - 5496 
$LFLG 064-5506 064-5506 
$( PAOR 001106 09-361 #10-816 064-5492 264-5492 64-5492 
$LPERR 001110 09-361 10-616 64-5492 264-5492 64-5492 
SMADR1 1232 09-3861 
SMADRO 001236 09-381 
Shanes 001242 09-3861 
Sar 001246 09-361 
| $MAIL 1200 8-380 8-380 09-381 10-8616 10-621 
SPMAMS1 001230 @9-3861 
| $manse 001234 09-361 
SPAMS 3 001240 09-361 
| SsMantses 001244 09-361 
| *SMBADR 000234 - 380 
s*FLG 026404 064 - 5508 64-5506 264-5508 4664-5506 
SPINE te 025245 64-5496 064-5496 
$PISGAD 001214 09-381 64-5508 64-5506 
| $®SGLG 001216 09-3861 064 -5506 
| SMSGTY 09-361 64-5506 264-5506 64-5506 264-5508 
SPS 64 - 54% GSA -5496 
SMTYP1 001231 09-381 
sMTYP2 001235 09-361 
sHTYPS3 001241 09-381 
SMT YP4 001245 09-361 
$MXCNT 023462 64-5492 64-54 64-5492 064-54 
$NULL 001154 09-361 64 5495 64-3493 64-5493 
$NWTS’T = 000001 11-866 11-866 11-866 12-951 12-951 
#14-1107 14-1107 14-1107 15-1161 15-1161 
#17-1306 17-1306 17-1306 018-1364 16-1364 
020-1447 20-1447 20-1447 21-1529 21-1529 
623-1713 23-1713 023-1713 024-1764 24-1784 
026-1937 26-1937 26-1937 27-2050 27-2050 
€29-2211 29-2211 029-2211 30-2296 30-2298 
032-2563 -2583 32-2563 33-2633 33-2633 
035-2611 35-2611 35-2811 36 -2947 36-2947 
038-3197 38-3197 36-3197  #39-3310 39-3310 
041-3473 41-3473 041-3473 042-3596 42-3598 
44-3 44-3 044-3 045-3637 45-3637 
047-3941 47-3941 047-3941 048-3971 46-3971 





045-3837 
048-3971 


#33-2662 
33-2700 
64-5573 


64 -5493 


#13-1039 
#16-1250 


049-4028 


64-5496 


13-1039 


33-2679 
34-2752 


64-5502 


#13-1039 
#16-1250 
#19-1410 
#22 - 1640 
#25-1850 
028-2166 
@31-2469 
034-2727 
@37-3051 
#40-3395 
043-3698 
#46 - 3903 
€49-4028 


SEQ 0173 


COKTABO CREATED BY MACRO ON 5-OCT-84 AT 09:26 


SYMBOL CROSS REFERENCE 
VALUE 


SYMBOL 


$SWREG 


025256 
000010 
023154 
oenees 
seceees 
026774 
023162 
000137 


177777 


001222 


sSURPK == 000300 


64-5511 


64-5511 


60 -5036 
€63-53861 


64-5496 


064-5511 


10-615 
#10-8615 

10-616 

64-5492 


#10-615 
#10-615 


51-4197 
S29 


064-5511 
#10-815 


#10-815 
#10-8615 


#51-4197 
054-4529 


60-5036 
063-5361 
064 -5494 


45-3641 
64-5492 


#52 -4261 


64-5474 


#10-815 


910-615 
#10-815 


#64 -5482 


10-815 
10-816 
10-821 
64-5502 


#10-815 
#10-815 


#52-4281 
#55 -4603 
058 -4876 
#61-5182 
064 -S444 


#64 -5482 


64-5496 


#10-815 
10-816 


SEQ 0174 


LI4 A 


COKTABO CREATED BY MACRO ON S-OCT-84 AT 09:26 PAGE 16 
SEQ 0175 

SYMBOL CROSS REFERENCE CREF v2 

SYMBOL VALUE REFERENCES 
8-263 64-5492 64-5492 64-5492 64-5492 64-5492 64-5492 64-5492 64-5492 
64-5492 64-5492 64-5492 

$TESTN 001204 09-381 064-54 

$TIMES 001164 09-381 #10-816 064-5482 064-5492 64-54 *64-5492 64-5492 64-5492 

$TKB 001146 9-381 GA-S49S_GA-S49S 64-5495 64-5493 64-5496 64-5496 64-5496 64-5496 

$TKS 001144 9-381 GA-S49S_—GA-S49S 64-5493 64-5493 G4-5H9G 64-5496 4-SH9E 64-5496 

$TMPO 001160 08-373 28-376 09-381 16-1258 16-1260 16-1261 16-1279 18-1370 18-1372 

| 18-1382 18-1364 19-1418 26-1952 - 27-2098 -2228 29-2229 35-2844 
35-2850 35-2867 037-3060 37-3085 637-3125 37-3148 40-3400 45-3861 45-3677 
46-3910 48-3975 48-3962 053-4432 053-4433 053-4434 53-4435 53-4438 53-4439 
053-4465 053-4466 053-4467 53- 55-4471 53-4472 056-4673 56-4676 56-4724 
56-4738 057-4794 57-4842 61-5188 61-5205 

$TMPL 001162 09-361 21-1565 21-1602 023-1730 23-1748 926-1963 26-1967 26-1977 #26-1997 
026-1998 26-1 -2002 27- 27-2145 053-4406 053-4484 53- 53-4486 
53-4487 256-4670 56-4753 

$TN 000070 8-262 06-262 1-866 011-866 - 12-951 12-951 012-951 
13-1039 13-1039 13-1039 14-1107 14-1107 14-1107 15-1161 15-1161 15-1181 
15-1219 16-1250 16-1250 16-1250 16-1264 16-1281 17-1 17-1 #17-1308 
17-1314 18-1364 18-1364 018-1364 18-1367 19-1410 19-1410 19-1410 19-1413 
19-1425 20-1447 20-1447 @20-1447 20-1449 21-1 21-1 €21-1529 21-1532 
22-1640 22-1640 022-1640 22-1643 22-1647 23-1713 23-1713 23-1713 23-1716 
23-1747 26-1784 24-1784 @24-1784 24-1787 24-1791 24-1814 25-1 25-1850 
025-1850 25-1853 25-1857 26-1937 26-1937 026-1937 26-1940 26-1 27-2050 
27-2050 27-2050 27- 28-2166 28-2166 026-2166 28-2169 28-2172 29-2211 
29-2211 029-2211 29-2214 30-2296 30-2298 030-2298 30-23 31-2469 31-2469 
031-2469 311- - 32-2583 032-2583 32-2586 33-2633 33-2633 033-2633 
34-2727 34-2727 034-2727 34-2730 35-2611 35-2811 035-2811 35-2617 35-2876 
36-2947 36-2947 036-2947 36-2949 37-3051 7- 037-3051 37-3149 38-3197 
38-3197 036-3197 38-3203 39-3310 39-3310 39-3310 39-3371 40-33 40-33 
040- 41-3473 41-3473 041-3473 42- 42-3596 042-3598 43-3698 43-3698 
043-3698 44-3758 44-3758 044-3758 44-3761 44-3798 45-3837 45-3837 045-3837 
45-3842 45-3644 45-3646 45-3848 45- 45-3854 45-3856 46-3903 46-303 
046-3903 47-3941 47-3941 647-3941 48-3971 48-3971 048-3971 48-3983 48-3965 
49-4026 49-4028 049-4028 50-4120 50-4120 -4120 50-4154 51-4197 51-4197 
@51-4197  S$2-4261 52-4281 052-426 52-4311 53-4394 53-4394 053-4394 53-4478 
54-4529 54-4529 054-4529 54-456 55-4603 55-4603 055-460 . 56-4668 
056-4668 57-4778 57-4778 057-4776 57-4781 58-4876 58-4876 058-4876 58-4894 
59-4935 59-4935 059-4935 -S036 60-50 060-5036 61-5182 61-5182 61-5182 
62-5291 62-5291 062-5291 63-5581 63-5361 063-5381 63-5424 64- 64- 
064-5444 64-5473 64-5473 064-5473 

$TPB 001152 09-381 64-5493 64-5493 64-5493 

$TPFLG 001157 09-381 64-5493 64-5493 64-5493 

$TPS 001150 09-381 64-5493 64-5493 64-5493 

$TRAP 026544 10-816 064-5510 

$TRAP2 026566 064-5510 64-5510 

$TRP 000014 064-5510 64-5510 64-5510 64-5510 64-5510 064-5510 64-5510 64-5510 64-5510 
64-5510 064-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 
64-5510 64-5510 66-5510 64-5510 64-5510 64-5510 64-5510 064-5510 64-5510 
64-5510 64-5510 64-5510 064-5510 64-5510 64-5510 64-5510 64-5510 064-5510 
64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 


025212 


REFERENCES 

064-5510 64-5510 
64-55:0 64-5510 
64-5516 64-5510 

6-360 

09-361 064 -5462 
64-S502 64-5502 
64-5496 64-5496 
64-5510 

064 -S4 64-5510 

064-5493 64-5 
64-5493 64-5493 
64-5493 64-5493 

O64 - S494 64-5510 
64-5494 - $494 

064 -5494 64-551 

09-361 

06 -380 

09-381 

9-361 

9-361 
64-5493 64-5493 
64-5493 64-5493 

064-5492 

064 -S482 64-5482 

64-5494 264-5494 
64-5492 64-5 
64-5506 64-5506 

#6 - 380 8-380 


64 -5496 


64-5494 


64-5510 64-5510 64-5510 64-5510 64-5510 


64-5492 
64 -5504 
064 -5496 


064 -5492 64-5492 64-5492 64-5492 


64-5510 
064-5493 


064 -5494 


ee 


COKTABO 


64-5462 


#10-621 


CREATED BY MACRO ON 5-OCT-84 AT 09:26 


PAGE 16 

CREF vO02 
13-1039 14-1107 
23-1713 24-1784 
33-2633 34-2727 
43-3696 44-3758 
53-4394 54-4529 
63-5381 64-5444 
10-807 64-5495 
10-802 64-5495 
64-5510 64-5510 
15-1219 16-1264 
22-1647 23-1716 
27-2085 26-2169 
36-2949 37-3149 
45-3852 45-3654 
58 -4894 63-5424 
8-380 6-380 
13-1039 14-1107 
18-1 19-1410 
23-1715 24-1764 
26-21 29-2211 
33-2633 34-2727 
38-3197 39-3310 
43-3696 44-3756 
46-3971 49-4026 
53-4394 -4529 
58-4876 59-4935 
63-5361 64- 
64 -5496 64-5496 
64-5511 64-5511 
64-5509 





15-1161 
SO 


57-4778 
64-5506 
64-5508 


64-5510 


19-1413 


SEQ 0177 


19-1410 


COKTABO CREATED BY MACRO ON S-OCT-84 AT 09:26 PAGE 19 
SEQ 0178 
MACRO CROSS REFERENCE CREF v02 
MACRO NAME REFERENCES 
TYPTXT 6-265 64-5482 64-5462 
$ABORT 64-5502 64-5502 
$ $CMRE 06-361 
$sCMTM 06-361 9-381 9-361 
| $$ESCA 6-265 
 $$NEWT #6 -265 11-866 12-951 13-1039 14-1107 15-1181 16-1250 17-1308 18-1364 19-1410 
20-1447 21-1529 22-1640 23-1713 24-1784 25-1850 26-1937 27-2050 28-2166 29-2211 
30-2298 31-2469 32-2583 33-2633 34-2727 35-2611 36-2947 37-3051 38-3197 39-3310 
40-3395 41-3473 42-3596 43-3696 44-3 45-3837 46-3903 47-3941 46-3971 49-4028 


60-5036 61-5162 62-S291 63-5381 64-5444 64-5473 


$$SET #64 -5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 64-5510 
64-5510 64-5510 

$$SETM 10-816 10-816 

$$SKIP #6 -265 11-890 15-1219 16-1264 16-1261 17-1314 18-1367 19-1413 19-1425 20-1449 


21-1532 22-1643 22-1647 23-1716 23-1747 24-1787 24-1791 24-1814 25-1853 25-1857 
26-1940 26-1942 27-2065 26-2169 ge 29-2214 30-2375 31-2554 32-2586 34-2730 


45-3846 45-3848 45-3852 45-3854 45-3856 48-3963 48-3985 50-4154 S2-4311 53-4478 
54-4561 57-4781 58-4894 63-5424 


.EQUAT 08-244 8-265 
“HEADE 06-244 8-262 
“KTLL 06-247 8-266 
"SETUP 06-244 10-815 
" SWRHI 08-244 -263 

" SWRLO 06-244 06-263 8-264 
“$ACT1 06-243 8-379 

* $APTB 09-381 9-381 

. $APTH 06-243 -380 
 $APTY 08-243 64-5508 
" $CATC 06-244 8-371 

: $CHTA 06-245 8-361 

: $€0P 96-245 64- 

* $ERRO 06-245 64-5502 
* $ERRT 06-245 64-5509 
* $POWE 06-246 64-5511 
* $RDOE 06-247 64-54 
 $RDOC 06-247 €4-5497 
* $READ 06-246 64-5496 
* $SAVE 06-246 

"$Sc 06-245 64-5492 
: $SIZE 06-247 

"STRAP 06-246 64-5510 
“ $TYPD 08-246 64-54 
ST YPE 06-245 64-5493 
,STYPO 66-240 64-5494 


